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25 Exciting Computer Games 
in BASIC for All Ages 


by David W. Chance 


Entertaining and educational 
games and puzzles for the 
TRS-80™, Apple®, or PET®! 


Improve your computing skills . . . 
turn your computer into a teaching 
machine that makes learning fun . . . 
explore the real capabilities of your 
TRS-80, Apple, or РЕТ... discover ex- 
citing and challenging new games for 
every skill level, every age group from 
four to 60-plus! It's all here in this out- 
standing new collection of ready-to-run 
programs: puzzles, memory games, ac- 
tion games, educational games, and 
games designed purely for entertain- 
ment. 

Here's a book that gives you 25 ex- 
citing programs written in BASIC for the 
TRS-80. Easy-to-follow conversion in- 
structions (including specific command 
changes and program line modifica- 
tions) let you easily adapt the programs 
for use on an Apple or PET. Each pro- 
gram is thoroughly explained with 
complete program listings, flowcharts, 
sample runs, and notation of memory 
required (some programs take as little 
as 4K of memory). The author has even 
included suggestions for modifying 
programs to make them more chal- 
lenging or for the use of additional 
graphics. Includes listings of REM 
statements to help new computerists 
gain a better understanding of BASIC 
and several "program shorts” that pro- 
vide big computing excitment with only 
a little typing. 

You'll find teaching and learning 
games that feature graphic rewards for 
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Introduction 


Home computers are becoming more and more popular with each passing 
year. Owners of these systems are seeking more flexible hardware for use in 
their homes. They are also requesting software. Users who do not care to or 
do not have time to write their own programs are filling the files of software 
producers with more and more demanding requests for software they can 
use. 

Because many producers concentrate on high-powered word pro- 
cessing and filing programs, home users are forced to rely on one category of 
computer programs, games. Users are therefore looking for more game 
programs that will run on their particular brand of home computer. They are 
also looking for programs that will do more than just entertain them. 

This book is designed to help you and your children benefit more from 
your system. The programs will enable you to learn and relax using the 
“brain” (the computer) that is sitting in front of you. 


THE SYSTEM... THE PROGRAMS 


Each of the thousands of computer owners around the world owns a particu- 
lar brand of computer system. The programs within this book are not 
designed to work on each and every different kind of system. All of the 
programs in this book were written using a Radio Shack? model TRS-80™ І, 
16K level II computer system. 

Methods of converting most of the programs for use on the PET® and 
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the Apple II™ computers can be found in Appendix A. You might also want to 
look through Appendix C which contains memory requirements for each 
program. 

For each program there is a description, a flowchart, a sample run, and 
of course, the program listing itself. All programs have been “debugged” so 
that all you have to do is enter each of the lines and run the program. If you 
feel you have been “left hanging” by some of the sample runs, don’t think that 
part of it was left out. Something must be left to your imagination. 

Children between the ages of four and seven will benefit most from the 
teaching programs such as “All About Numbers” and “All About Numbers 
II.” If you find they want to dive right into the action game programs, you can 
use a little psychology. Having them go through one or two of the teaching 
programs before they are allowed to play the action games is an effective 
Strategy. 

After you have enjoyed the game programs as they stand, you can read 
Appendix B, “Ways to Change the Programs,” which opens new doors for 
most of the game programs. 


Logical and Relaxing Games 


REVERSE ORDER OF OPERATION 


о с г © 


Ј 

К 
L 
M 


Do you know the alphabet? All the letters? In this game different letters that 
are randomly selected will be displayed. You must type these letters in 
reverse order within a certain time limit. Up to three people can play this 
game. There are two difficulty levels. If you choose the first level, the letters 
will remain on the video screen. If you choose the second level, each letter 
will be displayed individually in large print (using CHR$(23)) and then will 
disappear. 


Sample Run 


((REVERSE ORDER OF OPERATION)) 


SEE THE INSTRUCTIONS? YES 


THIS IS AN ACTION PACKED GAME THAT 
WILL TEST YOUR MEMORY AND YOUR 
ABILITY TO HANDLE FAST-PACED, 
MIND-BENDING STRESS. 

USING ONLY THE 26 LETTERS OF THE 
ALPHABET THE GAME WILL TEST 

YOUR MEMORY TO ITS FULLEST EXTENT. 


<> 

List 
instructions No A 

Final message 
3 Ves winner 

DIM NS 

statements Select next 
player 


Read 
data | STOP 
Print random 
letters 
Input 
number of players Start 
time 
Р<-1огР>-4 
Мо 
Input 
difficulty select 
ve] 552 
No 
Input names 
players names 
Random select 
first player 
set 
variables 


Flowchart for Reverse Order of Operation 


Yes 


Advance number of 
points 


All 
correct 


2 


OF COURSE, THE GAME WILL START OUT 
QUITE SIMPLY, YOU WILL RECEIVE 3 
LETTERS OF THE ALPHABET. 


PRESS ENTER? 


GIVEN A CERTAIN TIME LIMIT, YOU 
MUST INPUT THOSE LETTERS IN 
REVERSE ORDER. THE NUMBER OF 
LETTERS WILL INCREASE BY ONE 
UNTIL ALL 26 LETTERS HAVE BEEN 
PRINTED (IF YOU LAST THAT LONG). 
IF AT ANYTIME YOU WANT TO QUIT, 
PRESS THE ‘SPACE BAR’ INSTEAD OF 
ENTERING A LETTER. 


TO BEGIN, PRESS ENTER? 

HOW MANY PLAYERS (UP TO 3)2 
DIFFICULTY LEVEL 

FOR ALL PLAYERS) 


1) PRINT AND LEAVE LETTERS 
2) PRINT AND BLANK LETTERS 


SELECT? 1 


PLAYER # 1'S FIRST NAME? DAVE 
PLAYER ff 25 FIRST NAME? SANDRA 


SANDRA IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


Z5] 


xxINPUT THE REVERSE ORDER** 
} 25 


YOU HAVE ENTERED 1 CORRECTLY. 
SANDRA YOUR SCORE IS NOW: 10 


DAVE IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


ZSJ 


xxINPUT THE REVERSE ORDER** 
JSZ 


VOU HAVE ENTERED ALL 3 IN 
THEIR CORRECT ORDER. 
DAVE XOUR SCORE IS NOW: 30 


SANDRA IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


Z5JQ 


**INPUT THE REVERSE ORDER** 
1520 


YOU HAVE ENTERED ALL 4 
INCORRECTLY, TRY HARDER !! 
SANDRA YOUR SCORE IS NOW: 10 


DAVE IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


2570 


**INPUT THE REVERSE ORDER: 
JSZQ 


YOU HAVE ENTERED ALL 4 
INCORRECTLY, TRY HARDER !! 
DAVE YOUR SCORE IS NOW: 30 


SANDRA IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


ZSJQM 


ssINPUT THE REVERSE ORDERss 
+*TIME** 
MQ 


YOU HAVE ENTERED 2 CORRECTLY. 
SANDRA YOUR SCORE IS NOW: 30 


DAVE IT’S YOUR PLAY... 
PRESS ENTER WHEN READY? 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM REVERSE ORDER OF OPERATION 

30 CLSiRANDOMICLEAR 1000 

40 PRINT TAB(15); 

30 PRINT'«« REVERSE ORDER OF OPERATION >>" 
60 PRINT 

70 INPUT"SEE THE INSTRUCTIONS" ;jA$ 

80 IF A$<>"YES" THEN 320 

90 PRINT"THIS IS AN ACTION PACKED GAME THAT" 
100 PRINT"WILL TEST YOUR MEMORY AND YOUR" 
110 PRINT'ABILITY TO HANDLE FAST-PACED," 

120 PRINT"MIND-BENDING STRESS." 

130 PRINT'USING ONLY THE 26 LETTERS OF THE" 
140 PRINT"ALPHABET, THE GAME WILL TEST" 

150 PRINT" YOUR MEMORY TO ITS FULLEST EXTENT." 
140 PRINT"OF COURSE, THE GAME WILL START OUT" 
170 PRINT'QUITE SIMPLY. YOU WILL RECEIVE 3" 
180 PRINT"LETTERS OF THE ALPHABET." 

190 PRINTSINPUT"PRESS ENTER";XX 

200 CLS 

210 PRINT"GIVEN A CERTAIN TIME LIMIT, YOU MUST" 
220 PRINT'INPUT THOSE LETTERS IN REVERSE" 
230 PRINT"ORDER. THE NUMBER OF" 

240 PRINT"LETTERS WILL INCREASE BY ONE" 

230 PRINT"UNTIL ALL 26 LETTERS HAVE BEEN" 

260 PRINT"PRINTED (IF YOU LAST THAT LONG)" 
270 PRINT"IF AT ANYTIME YOU WANT TO QUIT," 
280 PRINT"PRESS THE SPACE BAR INSTEAD OF" 

290 PRINT"ENTERING THE LETTERS." 

300 PRINT 

310 INPUT"TO BEGIN, PRESS ENTER";XX 

320 CLS 

330 REM READ ALPHABET 

340 DIM A$(26),A(26),L$(26),F$(26) 

390 FOR I=1 TO 26 


360 READ A$(IXA(I)=I 

370 NEXT 

380 REM PLAVERS 

390 PRINT'HOW MANY PLAYERS (UP TO 3)"; 
400 INPUT P 

410 IF Р<=1 OR P>=4 THEN 390 

415 PRINT 

420 PRINT"DIFFICULTY LEVEL" 

430 PRINT'(FOR ALL PLAYERS)" 

440 PRINT"1) PRINT AND LEAVE LETTERS" 
450 PRINT"2) PRINT AND BLANK LETTERS" 
460 PRINT!IINPUT"SELECT"j;D 

465 IF П-2 W=64 

470 INPUT'PLAVER # 1'5 FIRST NAME";Q$ 
475 IF P=1 THEN 500 

480 INPUT'PLAVER % 25 FIRST NAME";Q1$% 
483 IF P=2 THEN 500 

490 INPUT'PLAVER it 3'5 FIRST NAME";Q2$ 
300 REM FIRST PLAYER 

510 СОТО1100 

920 REM NUMBER OF LETTERS TIME LIMIT 
930 1=3:Ү=1:Т=150:0=1:60507В8540:60Т0660 
340 REM RANDOM CHOICE OF LETTERS 
390 REM NOT ALREADY USED 

560 I-RND(24) 

570 IF A(I)-0 THEN 560 

580 L$(Y)-A$(T) 

390 REM DELETE LETTER 

600 A(T)=0 

610 IF YCL THEN 640 

620 RETURN 

640 Y-Y*1 

650 GOTOSSO 

660 REM GOTO CORRECT PLAYER 

670 IF TX=0 THEN 710 

680 ТЕ RR=1 RR-2:2$-01$:G0TO710 

690 IF RRz2 RR=3:2$=Q2$:GOTO705 

700 IF RR=3 RR=1:Z2$=Q$ 

705 IF RR=3 AND P-2 THEN RR=1:Z$=Q$% 

710 PRINT 7% IT’S YOUR PLAY..." 

720 INPUT"PRESS ENTER WHEN READY";XX:CLS 
725 IF D22 THEN PRINT CHR$(235GOTO730 
726 PRINT:PRINT 

730 FOR E=1TOL 


740 IF D=2 THEN PRINT GW,L$(E)5GOTO760 
730 PRINT LS(E);" "j 

760 FOR Gz1TO100:NEXT G,E 

770 IF D-2 PRINTQN^," "; 

780 PRINT 

790 PRINT"## INPUT THE REVERSE ORDER ян" 
800 ЕЕ=1:0=1:КЕМ BEGIN TIME 

810 FOR X=QTOT:CS=INKEY$iLL=LL+1 

820 IF С%=" " THEN 870 

830 IF C$="" THEN NEXT:GOTO1170 

840 Q=LL 

950 FS(EE)=C$ 

860 IF ЕЕ<21 THEN EE=EE-1:GOTO810 

870 FOR I=LTO1 STEP-1:PRINT РФ)!" "j 
875 МЕХТІРКІМТ 

880 REM CHECK FOR CORRECT ENTRIES 
890 FOR I=1TOL 

900 IF F$(I)-L$(I) THEN 930 

910 NEXT 

920 GOTO950 

930 Ті=Ті+10:ХС=ХС+1 

940 СОТО910 

950 REM ALL CORRECT 

960 IF XC=L THEN 1020 

970 REM NONE CORRECT 

980 IF XC=0 THEN 1050 

990 PRINT"YOU HAVE ENTERED";XC;"CORRECTLY." 
1000 PRINT Z$;" YOUR SCORE IS NOW:'j 
1010 GOTO1200:REM TOTAL SCORE 

1020 PRINT"YOU HAVE ENTERED ALL";L;"IN" 
1030 PRINT"THEIR CORRECT ORDER." 
1040 GOTO1000 

1050 PRINT" YOU HAVE ENTERED ALL";L 
1060 PRINT"INCORRECTLY, TRY HARDER !!" 
1070 GOTO1000 

1100 REM PLAYER SELECT (START) 

1110 K=RND(P) 

1120 IF K=1 THEN Z$-0$iRR:-I1 

1130 IF K-2 THEN Z$-01$:RR-2 

1140 IF K=3 THEN 2$=Q2$;RR=3 

1150 REM BEGIN WITH FIRST PLAYER 
1160 GOTOSZO 

1170 REM TIME !! 

1180 PRINT 


1190 PRINT"## TIME ##";GOTO870 

1200 REM FOR TOTAL SCORES 

1210 IF RR=1 THEN 1240 

1220 IF RR=Z THEN 1250 

1230 IF RR=3 THEN 1260 

1240 T2-TZ* T1:iPRINT T2:GOTO1270 

1250 TS-T3SHTISPRINT T3:GOTO1270 

1260 T4=T4+TitPRINT TA 

1270 С=011.=0:ХС=0:Ті=0ТХ=1 

1230 FOR I=1TOL‘FS(D=""SNEXT 

1285 REM FOR LETTER ADVANCE 

1290 II-II*1 

1300 IF ABS(II-P)-0 THEN 1330 

1310 L=U 

1320 PRINT:PRINT:GOTO660 

1330 REM LETTER / TIME ADVANCE 

1340 IF 12=26 THEN 1400 

1330 L=L+1:Y=Y¥+1:GOSUBS40 

1360 Т=Т+2011=0 =]. 

1370 GOTO1320 

1400 REM FINAL 

1410 PRINT" THE GAME IS OVER." 

1420 REM WINNER 

1430 IF T2>T3 AND T2>T4 THEN 1490 

1440 IF T3>T2 AND T3>T4 THEN 1510 

1450 IF ТА>Т2 AND Т4>Т3 THEN 1530 

1460 PRINT'TOU HAVE EACH ENDED THE GAME' 
1470 PRINT"WITH THE SAME SCORE." 

1480 СОТО1550 

1490 PRINT 0%; WINS THE GAME, WITH А" 
1500 PRINT"FINAL SCORE OF";TZIGOTO1550 
1510 PRINT Q1$;" IS THE WINNER, YOUR" 
1520 PRINT"FINAL SCORE IS";T3:GOTO1550 
1530 PRINT Q2$;" HAS WON, FINAL SCORE" 
1540 PRINT"A WHOPPING BIG";T4;"POINTS." 
1550 PRINT 

1560 PRINT" END OF PROGRAM RUN +" 
1570 END 

1600 DATA A,B,C,D,E,F,G,H,I 

1610 DATA K,L,M,N,0O,P,Q,R,5,T 

1620 DATA U,V,W,X,Y,Z 


COLOR MATCH 


Blue Green 
Red White 
Blue Red 


Green White 
2 2 


AW 


Select the difficultv level vou want; then trv to arrange the colors in their 
proper order in the fewest number of attempts. Before trving the second 
level, vou might be wise to master the first, because on the second level, the 
computer will not let vou see how the colors are supposed to be arranged. 


Sample Run 


///// COLOR MATCH ///// 
INSTRUCTIONS2VES 


OBJECT: TO ARRANGE 15 COLORS 
AND ONE BLANK SPACE TO MATCH 
THE COMPUTER EXACTLX IN THE 
FEWEST TRIES. 

YOU WILL BE GIVEN A CHOICE 

OF 2 LEVELS OF PLAV. THE 

FIRST CHOICE WILL LET YOU SEE 
HOW THE COLORS ARE SUPPOSED 
TO BE ARRANGED. IF YOU CHOOSE 
THE SECOND LEVEL YOU WILL 
NOT BE ABLE TO SEE THE FINAL 
COLOR ARRANGEMENT. 


PRESS ENTER? 


START 


DIM | 
statements 


No 
Colors /pattern 
Random 
color sets 
No 
Mix colors 
level | 
Print 
colors 
Input color 
to blank space 


Completed 


Yes 


Output message 
final attempts 
STOP 


Flowchart for Color Match 
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IF YOU HAVE CHOSEN THE FIRST 
LEVEL, THE COMPUTER WILL 
REARRANGE THE 15 COLORS AND ^ 
BLANK SPACE RANDOMLY. IT WILL 
THEN ASK 'TO BLANK SPACE?' YOU 
CAN NOW START REARRANGING THE 
COLORS TO MATCH THE COMPUTER'S 
ORIGINAL ARRANGEMENT. ENTER THE 
NUMBER OF A SPACE WHICH CONTAINS 
THE COLOR THAT SHOULD GO IN THE 
SPACE THAT IS CURRENTLY BLANK. 

(IF YOU WISH TO SEE THE 

COMPUTER'S ARRANGEMENT, ENTER A 
‘~ (ZERO). 


PRESS ENTER 


IF YOU HAVE CHOSEN THE SECOND 
LEVEL, YOU CANNOT SEE THE 
COMPUTER’S ARRANGEMENT, BUT 
THE COLORS WILL BE IN GROUPS 
OF 4, LE., 1-4 MIGHT ALL 

BE BLUE AND SO ON. A COLOR 
CAN BE MOVED ONLY 2 SPACES IN 
EITHER DIRECTION, FOR EXAMPLE, 
3 TO 4, OR 3 TO 5, OR 5 TO 4, 

OR 5 TO 3, AND SO ON. 


ENTER NOW TO START? 


LEVEL CHOICE (1 OR 2? 1. 


1) BLUE 2) WHITE 
3) GREEN 4) BLUE 
5) BLUE 6) RED 

7) WHITE 8) 


9) WHITE 10) GREEN 
11) BLUE 12) GREEN 
13) RED 14) RED 
15) WHITE 16) RED 


TO BLANK SPACE? 6 
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1) BLUE 
3) GREEN 
5) BLUE 
7) WHITE 


9) WHITE 
11) BLUE 
13) RED 
15) WHITE 


2) WHITE 
4) BLUE 
6) 

8) RED 


10) GREEN 
12) GREEN 
14) RED 
16) RED 


TO BLANK SPACE? 5 


1) BLUE 
3) GREEN 
5) 

7) WHITE 


9) WHITE 
11) BLUE 
13) RED 
15) WHITE 


2) WHITE 
4) BLUE 
6) BLUE 
8) RED 


10) GREEN 
12) GREEN 
14) RED 
16) RED 


TO BLANK SPACE? 3 


1) BLUE 
3) 

5) GREEN 
7) WHITE 


9) WHITE 
11) BLUE 
13) RED 
15) WHITE 


2) WHITE 
4) BLUE 
6) BLUE 
8) RED 


10) GREEN 
12) GREEN 
14) RED 
16) RED 


TO BLANK SPACE? 2 


1) BLUE 

3) WHITE 
5) GREEN 
7) WHITE 


9) WHITE 


11) BLUE 
13) RED 


12 


2) 

4) BLUE 
6) BLUE 
8) RED 


10) GREEN 
12) GREEN 
14) RED 


15) WHITE 


16) RED 


TO BLANK SPACE? 0 


1) BLUE 
3) BLUE 
5) RED 
7) RED 


9) WHITE 
11) WHITE 
13) GREEN 
15) GREEN 


(original) 


PRESS ENTER? 


1) BLUE 

3) WHITE 
5) GREEN 
7) WHITE 


9) WHITE 
11) BLUE 
13) RED 
15) WHITE 


2) BLUE 
4) BLUE 
6) RED 
8) RED 


10) WHITE 
12) WHITE 
14) GREEN 
16) 


10) GREEN 
12) GREEN 
14) RED 
16) RED 


TO BLANK SPACE? 11 


ILLEGAL COMMAND... 


1) BLUE 

3) WHITE 
5) GREEN 
7) WHITE 


9) WHITE 
11) BLUE 
13) RED 
15) WHITE 


2) 

4) BLUE 
6) BLUE 
8) RED 


10) GREEN 
12) GREEN 
14) RED 
16) RED 


TO BLANK SPACE? 4 
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1) BLUE 2) BLUE 
3) WHITE 4) 

5) GREEN 6) BLUE 
7) WHITE 8) RED 


9) WHITE 10) GREEN 
11) BLUE 12) GREEN 


13) RED 14) RED 
15) WHITE 16) RED 


TO BLANK SPACE? 


///// STOP ///// 


You can see from this sample run that it might take you more attempts than 
you expected to rearrange the colors correctly. The original in the sample 
run is what the screen is supposed to look like when the run is finished. 


Program Listing 


10 REM PROGRAM TITLE: COLOR MATCH 

20 CLSSRANDOM:DIM B$(16),A(16) 

29 DIM T$(16),W$(16),C$(16) 

30 PRINT"///// COLOR MATCH /////" 

40 PRINT 

50 INPUT"INSTRUCTIONS";Q$ 

60 IF Q$="NO" OR Q$="N" THEN 399 

65 GOTO100 

70 INPUT"LEVEL CHOICE (1 OR 2)'5C 

80 IF C<1 OR С>2 THEN 70 

90 RETURN 

100 PRINT"OBJECT: TO ARRANGE 15 COLORS" 
110 PRINT"AND ONE BLANK SPACE TO MATCH" 
120 PRINT'THE COMPUTER EXACTLY IN THE" 
130 PRINT'FEWEST NUMBER OF TRIES." 

140 PRINT"YOU WILL BE GIVEN A CHOICE" 
150 PRINT"OF Z LEVELS OF PLAY. THE" 

160 PRINT'FIRST CHOICE WILL LET YOU SEE" 
170 PRINT'HOW THE COLORS ARE SUPPOSED" 
130 PRINT"TO BE ARRANGED. IF YOU CHOOSE" 
190 PRINT'THE SECOND LEVEL YOU WILL" 
200 PRINT"NOT BE ABLE TO SEE THE FINAL" 


14 


210 PRINT"COLOR ARRANGEMENT." 

220 INPUT"PRESS ENTER"}XX 

230 CLS 

240 PRINT'IF YOU HAVE CHOSEN THE FIRST" 
230 PRINT"LEVEL, THE COMPUTER WILL" 

260 PRINT'REARRANGE THE 15 COLORS AND і" 
270 PRINT'BLANK SPACE RANDOMLY, IT WILL" 
280 PRINT"THEN ASK ‘TO BLANK SPACE?’ YOU" 
290 PRINT"CAN NOW START REARRANGING THE" 
300 PRINT"COLORS TO MATCH THE COMPUTER'S" 
310 PRINT"ORIGINAL ARRANGEMENT, ENTER THE" 
320 PRINT'NUMBER OF A SPACE WHICH CONTAINS" 
330 PRINT"THE COLOR THAT SHOULD GO IN THE" 
340 PRINT"SPACE THAT IS CURRENTLY BLANK," 
390 PRINT'(IF YOU WISH TO SEE THE" 

360 PRINT'COMPUTER'S ARRANGEMENT, ENTER A" 
370 PRINT"’0’ ZEROD." 

375 INPUT"ENTER";XX:iCLS 

380 PRINT"IF YOU HAVE CHOSEN THE SECOND" 
382 PRINT"LEVEL, YOU CANNOT SEE THE" 

384 PRINT"COMPUTER’S ARRANGEMENT, BUT" 
386 PRINT"THE COLORS WILL BE IN GROUPS" 
388 PRINT"OF 4, ҺЕ» 1-4 MIGHT ALL" 

390 PRINT"BE BLUE AND SO ON. A COLOR" 

392 PRINT"CAN BE MOVED ONLY 2 SPACES IN" 
394 PRINT"EITHER DIRECTION, FOR EXAMPLE," 
396 PRINT"3 TO 4, OR 3 TOS, OR 5 TO 4, 

397 PRINT"OR 5 ТОЗ, AND SO ON." 

398 INPUT"ENTER NOW TO START"'jXX:CLS 

399 GOSUB70:CLS 

400 REM COLORS / ORIGINAL PATTERN 

405 REM LEVEL ONE 

410 FOR І-1Т04 

420 B$(OI)-"BLUE"INEXT 

430 FOR І-5ТО8 

440 B$(I)="RED"NEXT 

450 FOR I-9TO12 

460 BS(1)="WHITE" NEXT 

470 FOR І-13Т015 

480 BS(1)="GREEN" NEXT 

490 В%(1)=" "SH=1:IF C22 THEN 1300 

300 FOR I-1TO165A(ID-TINEXT 

310 REM RANDOM MIX OF COLORS 

520 I-RND(16) 
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530 IF H=17 THEN 400 
540 REM COLOR USED ? 
550 IF А(1)=0 THEN 520 
560 T$(H)=B$(IXNIF T$(H)2" " THEN M=H 
570 А(1)-0 
580 HH*1:GOTO520 
500 REM PRINT COLORS 
610 Qz11Wz2!P-5 
620 PRINT TAB(O)jQ}") "T$(QD 
530 PRINT TAB(4XW3') "ITSON) 
640 IF 0<=Р THEN 660 
650 GOTO480 
660 Q=Q+2!W=W+Z 
570 GOTO&20 
680 IF Z=1 THEN 720 
690 REM FINISH PRINT OF COLORS 
700 РБІМТІР-14 
710 7-1:50Т0860 
720 IF KK=1 KK=0!GOTO900 
730 PRINT 
740 INPUT"TO BLANK SPACE"}U 
750 IF U=0 AND X=0 THEN 1200 
760 IF U=0 AND X<>0 THEN 1100 
770 IF ABS(U-M)>=3 THEN 1100 
780 REM ADVANCE COUNTER 
790 А=А+1 
800 PRINT 

| 810 REM INTERCHANGE COLORS 
820 T$(M)=TS(U) 
830 T$(U)s" " 
840 M-UIIF M=0 М=1 
850 7-0 
850 GOTO1000 
900 REM CONTINUE 
910 PRINT 
920 INPUT"PRESS ENTER"X$ 
930 FOR I=1TO16 
940 Т%(1)=И%(1) 
950 NEXT 
960 7=0:РБІМТ 
970 GOTO^500 
1000 REM CHECK FOR COMPLETION 
1010 FOR І-1Т016 
1020 IF C=2 THEN 1050 
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1030 IF Т%(1)<>2В$%(1) THEN 600 

1040 МЕХТ:СОТО1500 

1050 IF T$(IX»C$() THEN 600 

1060 NEXT 

1070 GOTO1500 

1100 REM ILLEGAL COMMAND 

1110 PRINT 

1120 PRINT'ILLEGAL COMMAND..." 
1130 FOR E=1TO1200;NEXT‘PRINT 
1140 2-0 

1150 GOTO600 

1200 REM PRINT ORIGINAL 

1210 FOR I-1T016 

1220 WS(I)-TS(I) 

1230 T$(D-B$() 

1240 NEXT 

1250 KK 7172-0 

1260 PRINT 

1270 GOTO600 

1300 REM LEVEL TWO 

1310 FOR I=1TO4 

1320 A(I)D-TINEXTIK-1 

1330 I=RND(4) 

1340 IF K-5 THEN 1380 

1350 IF A(I):0 THEN 1330 

1360 R(K)=A(T)A(1)=0 

1370 KK *1:GOTO1330 

1380 REM RANDOM COLORS (SETS) 
1390 X=1iJ=1 

1400 IF X25 THEN 1490 

1410 ON R(X) GOTO 1420,1430,1440,1450 
1420 Az1:B24:G0TO1460 

1430 А=5:В=8:СОТО1460 

1440 A291Bz12:GOTO1460 

1450 А=13:В=16 

1460 FOR I-ATOB 

1470 C$()-B$INJ-7J4*1:NEXT 

1480 X=X+1;GOTO1400 

1490 СОТО500 

1500 REM COMPLETED 

1510 PRINT 

1520 PRINT"YOU HAVE COMPLETED THE" 
1530 PRINT"COLOR ARRANGMENT !!!" 
1540 REM PRINT STATEMENT FOR ATTEMPTS 
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1550 IF A>=1 AND А<=25 THEN 1610 

1560 IF А>=25 AND А<-50 THEN 1650 

1570 IF А>=50 AND А<=75 THEN 1690 

1380 PRINT"YOUR ATTEMPTS (";A;") HAVE" 

1570 PRINT"LEFT SOMETHING TO BE DESIRED..." 
1600 GOTO1730 

1610 PRINT"GREAT JOB '" 

1620 PRINT" YOU DID IT IN ONLY"jA;"MOVES-" 


1640 GOTO1730 


1650 PRINT'NOT BAD,";A;"MOVES TO" 

1660 PRINT'ARRANGE ALL 16 COLORS, KEEP" 
1670 PRINT'UP THE GOOD WORK..." 

1680 GOTO1730 

1690 PRINT A;"MOVES. A LITTLE HIGH" 

1700 PRINT"FOR ONLY 16 COLORS. MAYBE" 
1710 PRINT"WE SHOULD HAVE STARTED YOU" 


1730 PRINT 
1740 PRINT"COMPLETION OF GAME PROGRAM." 
1750 END 


18 


SALT AND PEPPER 


Sal |t Pep | рег 


V V 


BN 


To complete this game, you will have to be on your toes at all times. You 
must solve long math problems within a time limit of 10 seconds (on your 
first RUN through). To stop the clock and input your answer, simply hold 
down the enter key. Now you are probably thinking, "Big deal, I can hold 
down the enter key as soon as the problem is printed and take as long as I 
want to answer." That angle was taken into consideration when the program 
was designed. You see, as soon as the clock stops, a little block moves across 
the problem and wipes it out. Thus, you will have to know the answer before 
you hold down the enter key! Have fun!! 


| Sample Run 


SALT AND PEPPER 


INSTRUCTIONS: 

TO PLAY THIS FAST-PACED GAME, 
YOU WILL HAVE TO SOLVE COMPLEX 
MATH PROBLEMS QUICKLY. THESE 
WON'T BE SIMPLE PROBLEMS, SO YOU 
SHOULD BRUSH UP BEFORE STARTING. 
YOU'LL BE GIVEN A TIME 

LIMIT FOR EACH PROBLEM. 

THE PROGRAM WILL TERMINATE EITHER 
WHEN YOU GO INSANE OR WHEN THE 
COUNTER REACHES 25 (WHICHEVER 
OCCURS FIRST!^. 


Instructions 


Set 
variables 


Set 
counters 


Get 5 
random int. 


Print 
problem 


Time 
loop 


Mu 


EN 
<; 
+1 
Ѕсоге 
теѕѕаде 
Time-time- 1 
reset counter Yes 


Flowchart for Sa/t and Pepper 
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xxx ENTER***? 


INSTRUCTIONS (CONT.) 

YOU WILL BE GIVEN THE PROBLEMS 
ONE AT A TIME. TO THE RIGHT OF 
EACH PROBLEM WILL BE THE TIME 
YOU HAVE REMAINING TO INPUT 

AN ANSWER. WHEN YOU HAVE THE 
ANSWER (AND YOU HAVE SOME 

TIME LEFT), HOLD THE ENTER 

KEY DOWN TO STOP THE CLOCK 

AND INPUT YOUR COMPLETED ANSWER. 


PRESS ENTER NOW AND THE COMPUTER 
WILL SELECT YOUR FIRST PROBLEM? 


PROBLEM # 1 


PROBLEM # 2 


PROBLEM # 3 


PROBLEM # 
PROBLEM # 
PROBLEM # 
PROBLEM # 
PROBLEM # 8 
PROBLEM # 9 
PROBLEM # 10 
PROBLEM # 11 
PROBLEM # 12 
PROBLEM # 13 
PROBLEM # 14 


PROBLEM # 15 


494/l-1746—5 
2*3/1— 16+9=-L 
6x1/l-1446—-2 
2*3/1- 
9«4/2- 
9«4/1- 
343/1-142-10 
1«5/1- 
5ы2/2- 
7«4/1- 
Qx4/l- 
0*4/2— 
6*1/1- 
7%5/2- 


5ж1/1- 
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PROBLEM f 16 7*3/2-— 16 +3 =—-2.5 


PROBLEM #17 7*2/1-6+8=16 
PROBLEM #18 4+2/2- 4+5=5 
PROBLEM #19 1*5/1-3+2=4 
PROBLEM #20 4*1/2-2+3=3 
PROBLEM #21 3*1/2-12+9=-15 
PROBLEM f 22 3%4/2-6%8-8 
PROBLEM # 23 9*4/1— 13 +7 = 30. 
PROBLEM #24 7 1/1-12%5-0 
PROBLEM #25 9*2/1- 9+4=1 


A FANTASTIC SCORE. 25 OUT OF 
25 CORRECT, REALLY GOOD !!! 


ANOTHER ROUND OF 

SALT AND PEPPER? NO 

FOR THAT ANSWER YOU'LL GET 
PEPPER IN THE EAR !! 

END OF PROGRAM RUN. 


Program Listing 


10 REM PROGRAM TITLE: SALT AND PEPPER 

20 CLS 

30 RANDOM 

40 REM PROGRAM WILL ONLY 

30 REM USE RANDOM INTEGERS 

60 PRINT TAB(15);"SALT AND PEPPER" 

70 PRINT 

80 PRINT"INSTRUCTIONS?" 

90 PRINT'TO PLAY THIS FAST-PACED GAME," 
100 PRINT" YOU WILL HAVE TO SOLVE COMPLEX" 
110 PRINT"MATH PROBLEMS QUICKLY. THESE" 
120 PRINT"WON’T BE SIMPLE PROBLEMS, SO YOU" 
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130 PRINT"SHOULD BRUSH UP BEFORE STARTING." 
140 PRINT" YOU SEE YOU'LL BE GIVEN A TIME" 
130 PRINT'LIMIT FOR EACH PROBLEM." 

160 PRINT"THE PROGRAM WILL TERMINATE EITHER" 
170 PRINT"WHEN YOU GO INSANE OR WHEN THE" 
130 PRINT'COUNTER REACHES 25 (WHICHEVER" 
190 PRINT'OCCURS FIRST!" 

200 PRINT 

210 INPUT' xxx ENTER 3388"; X 

220 CLS 

230 PRINT"INSTRUCTIONS (СОМТ.)" 

240 PRINT'YOU WILL BE GIVEN THE PROBLEMS" 
290 PRINT"ONE AT À TIME. TO THE RIGHT OF" 
260 PRINT"EACH PROBLEM WILL BE THE TIME" 
270 РКІМТ"ҮОУ HAVE REMAINING TO INPUT" 
280 PRINT'AN ANSWER, WHEN YOU HAVE THE" 
290 PRINT'ANSWER (AND YOU HAVE SOME" 

300 PRINT"TIME LEFT), HOLD DOWN THE ENTER" 
310 PRINT"KEY DOWN TO STOP THE CLOCK" 

320 PRINT"AND INPUT YOUR COMPLETED ANSWER." 
330 PRINT 

340 PRINT"PRESS ENTER NOW AND THE COMPUTER" 
350 PRINT"WILL SELECT YOUR FIRST PROBLEM"; 
360 INPUT X 

370 CLS:K=1:Q=40:TT=10;P=10 

380 A=RND(10) 

390 B-RND(5) 

400 C-RND(2) 

410 D=RND(17) 

420 E=RND(P) 

430 REM VARIABLE P WILL INCREASE 

440 REM WITH EACH RECYCLE (PLAY AGAIN) 

450 PRINT TAB(O);"PROBLEM #"; 

460 PRINT ТАВ(10);К; 

470 PRINT TAB(14),; 

480 PRINT АВС + SES ="3 

490 REM TIME LOOP 

300 T=TT 

310 PRINT@Q,T;"SECONDS LEFT." 

520 H=PEEK (15340) 

330 IF H=1 THEN 700 

540 FOR I=1TOSOO‘NEXT 

390 IF T=0 THEN 580 

360 T-T-1 
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570 GOTOS10 

580 PRINT@Q," 9! TIME 88" 

590 REM ADVANCE COUNTERS 

595 K-K411020*641V2V43 

600 IF К>-25 THEN 900 

610 IF Q>=1000 THEN 430 

620 GOTO380 

630 CLS!Q=45!V=0!GOTO380 

700 REM INPUT ANSWER 

705 GOTOS00 

710 PRINTGQ;; 

720 INPUT" YOUR ANSWER'iW 

730 IF ИХЕ THEN 590 

740 R-R41:1GOTO595 

800 REM CLEAR PROBLEM 

810 REM GET ANSWER 

820 FOR J=31T077 

830 SET(,VXRESET(U,VXNEXT 

840 F-AsB/C-DHE 

850 GOTO710 

900 REM 25 COMPLETED 

910 IF R>=20 THEN 980 

920 IF R>=15 AND R<=20 THEN 1010 

930 IF R>=10 AND R<=15 THEN 1060 

940 PRINT"A DASH OF SALT AND PEPPER" 
950 PRINT"IS YOUR REWARD, OUT OF" 

960 РБІМТ"А POSSIBLE"}K}"YOU ANSWERED" 
970 PRINT"ONLY"IRi"CORRECTLY ":GOTO1100 
980 PRINT"A FANTASTIC SCORE."R;"OUT OF" 
990 PRINT"25 CORRECT, REALLY GOOD !!!" 
1000 GOTO1100 

1010 PRINT"FOR THE PROBLEMS YOU RECEIVED" 
1020 PRINT"YOUR SCORE CAN'T BE KNOCKED." 
1030 PRINT"GETTING"}R}"PROBLEMS" 

1040 PRINT"RIGHT IS REALLY GOOD..." 

1050 GOTO1100 

1050 PRINT"JUST A DASH OF SALT IS ALL" 
1070 PRINT"YOU'RE GONNA GET THIS TIME..." 
1080 PRINT"YOU ANSWERED";Ri"OUT OF 25" 
1090 PRINT"PROBLEMS CORRECTLY." 

1100 PRINT 

1110 PRINT'ANOTHER ROUND OF." 

1115 PRINT"SALT AND PEPPER"! 

1120 INPUT Y$ 
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1130 IF Ү$="Ү" OR Y$="YES" THEN 1170 

1140 PRINT"FOR THAT ANSWER YOU'LL GET" 
1150 PRINT'PEPPER IN THE EAR !!" 

1160 END 

1170 ТТ-ТТ-1 

1175 IF TT<=0 THEN TT=10 

1180 T-TT 

1190 PRINT"IN THE NEXT SET, YOU WILL" 

1200 PRINT"HAVE";T;"SECONDS TO ANSWER" 
1210 PRINT"EACH PROBLEM,..GOOD LUCK !!!" 
1220 INPUT"PRESS ENTER TO BEGIN" ;X 

1230 CLS 

1240 R=0;V=0:K=1 

1250 0=40:Р=Р+5 

1260 СОТОЗ80 

1300 REM THIS PROGRAM CAN BE 'SPICED 

1310 REM UP’ BY USING CHANGING VARIABLES 
1320 REM FOR EACH OF THE RANDOM FUNCTIONS 
1330 REM LOCATED AT LINES 380 - 410 

1340 REM AS WAS DONE WITH VARIABLE 'E' 
1350 REM AT LINE 420 

1360 REM THESE VARIABLES CAN BE ‘STEPPED’ 
1370 REM WITH EACH RUN THROUGH THE 

1380 REM GAME 

1390 REM AS WITH VARIABLE 'P' AT LINE 1250 
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PATTERNS 


After you select “left/right” or “top/bottom” patterns, you can let your 
imagination take over! If you select "top/bottom," whatever you draw on the 
top half of the video, will be duplicated on the bottom half. If you select 
“left/right,” whatever you draw on the left will be duplicated on the right. 
You can create some very interesting patterns. 


Sample Run 


READ INSTRUCTIONS (Y/N)? Y 


THIS PROGRAM WILL LET YOU DRAW 
WHATEVER YOU WISH...BUT, WITH 

A NEW TWIST, WHATEVER YOU DRAW 

THE COMPUTER WILL DUPLICATE IN 

A MIRROR IMAGE, HENCE, YOU CAN 
CREATE MANY THOUSANDS OF DIFFERENT 
PATTERNS. 


PRESS (ENTER)? 


YOU WILL HAVE THE CHOICE OF 
DRAWING LEFT/RIGHT OR TOP/BOTTOM. 
IF YOU SELECT LEFT/RIGHT, THE 
COMPUTER WILL DUPLICATE YOUR WORK 
ON THE RIGHT SIDE. IF YOU SELECT 
TOP/BOTTOM, THE COMPUTER WILL 
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START 


Yes 


Print 
instructions 


Left-right 
draw patterns 
Top-bottom 
Yes draw patterns 
No 


Get key 
closure 
Yes 
Terminate User-computer 
program draw 


No <> Yes 
STOP 


Flowchart for Patterns 
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DUPLICATE YOUR WORK ON THE BOTTOM 
OF THE VIDEO SCREEN. 

YOU WILL USE THE FOUR ARROW 

KEYS TO DRAW ON THE SCREEN. 

TO MOVE AROUND THE SCREEN WITHOUT 
DRAWING, PRESS ANY ARROW KEY PLUS 

THE SHIFT KEY (THESE KEYS CAN ALSO BE 
USED TO ERASE PREVIOUSLY DRAWN LINES). 


PRESS (ENTER)? 


TO CLEAR VIDEO (ERASE EVERYTHING DRAWN) 
PRESS THE (CLEAR) KEY ONLY. 

YOU CAN THEN BEGIN AGAIN, DRAWING EITHER 
LEFT/RIGHT OR TOP/BOTTOM PATTERNS. 


NOTE: YOU CAN DRAW DIAGONAL 

LINES (UP/RIGHT, UP/LEFT, DOWN/ 

RIGHT, DOWN/LEFT), BY USING 

TWO ARROW KEYS TOGETHER. 

EXAMPLE: TO DRAW UP/RIGHT, PRESS THE 

UP ARROW KEY + THE RIGHT ARROW KEY TOGETHER. 


PRESS ENTER TO BEGIN YOUR ‘PATTERNS’? 


SELECT AREA: 
1) LEFT/RIGHT PATTERNS 
2) TOP/BOTTOM PATTERNS 
3) TERMINATE 
? 3 


ж PROGRAM TERMINATED ж 


Program Listing 


10 REM PROGRAM TITLE: PATTERNS 
15 IF B=0 CLS:GOTO2000 

20 CLS:IGOTOS800 

30 СІ5:Х=0:Ү=0:7=1271К=0 

40 SET(X,YXSET(Q ,K) 

30 IF MX=1 GOSUB700:GOTO30 

100 AZPEEK(15340) 

105 IF A=2 THEN 500 
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108 IF P=1 THEN 900 

110 IF A=3 THEN 240 

120 IF A=9 THEN KY-1:GOTO240 
130 IF A216 THEN 260 

140 IF A=17 THEN KY-1:G0T0260 
130 IF A232 THEN 280 

160 IF A233 THEN J X-1:GOTO280 
170 IF A240 THEN 300 

180 IF A248 THEN 310 

190 IF A264 THEN 320 

200 IF A265 THEN JX-1:GOTO320 
210 IF A-72 THEN 340 

220 IF A=80 THEN 350 

230 СОТО530 

240 Y-Y-1iK-K-1:GOTO530 

260 Y=¥+13K=K+1:GOTO340 

280 X2X-1iJ2J*1:GOTOS550 

300 YzY-1:iK-K-1:GOTO315 

310 YzY*1:K-K*1 

315 X2X-1iJ2J*1:GOTO360 

320 X2X*1:J2J-1:GOTOS60 

340 Y=Y-1:K=K-1:GOTO3S5 

330 YzY*1:K-K*1 

355 X2X*1iJ7J-1 

360 IF Х<-0 X=0 

370 IF X>=62 X262 

380 IF Ү<-0 Y=0 

390 IF Ү>-47 Ү-47 

400 IF Ј<=65 J=65 

410 IF J>=127 J=127 

420 IF K<=0 K=0 

430 IF К>-47 K 247 

450 SET(X,YSET( ,K) 

460 IF KY=1 THEN 500 

470 IF JX=1 THEN 500 

480 GOTO100 

500 RESET(X,YXYRESET(Q ,K) 

510 KY=0;J X=0 

320 GOTO100 

530 IF KY=1 RESET(X,Y * 1 REBET(Q ,K*1) 
535 GOTO360 

540 IF KY=1 RESET(X,Y-1);RESET(W ,K-1) 
545 СОТО535 
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550 IF JX=1 RESET(X*1, YY RESET(U -1,K) 
555 GOTOS35 

560 IF JX=1 RESET(X-1,YXY RESET *1,Y) 
365 GOTOS35 

600 CLS 

610 PRINT:PRINT:PRINT 

620 PRINT TAB(15);"### SCREEN CLEARED нн 
630 FOR [=1T01500;NEXT 

635 IF MX=2 RETURN 

640 MX=1:;GOTOZ0 

700 MX=0 

710 PRINT:PRINT:PRINT 

720 PRINT TAB(18)j 3:48 READY 3888888" 
730 FOR I-1TO1000:NEXT 

740 CLS 

730 RETURN 

800 PRINT 

810 PRINT'SELECT AREA" 

820 PRINT"1) LEFT/RIGHT PATTERNS" 
830 PRINT"2) TOP/BOTTOM PATTERNS" 
835 PRINT"3) TERMINATE" 

840 PRINT 

850 INPUT E 

860 ON E GOTO 30,880,2600 

870 GOTOS10 

880 CLS:GOSUB700 

885 Х=0:Ү=0:7=0:К=47 

890 SET(X,YSET(S,K) 

895 А-РЕЕК(15340) 

900 IF A=2 THEN 600 

910 IF A-8 THEN 1020 

915 IF A=? THEN KY-1:GOTO1020 

920 IF А=16 THEN 1030 

930 IF A=17 THEN KY=1:GOTO1030 

940 IF A=32 THEN 1040 

945 IF A233 THEN JX=1:GOTO1040 

950 IF A=40 THEN 1060 

360 IF A248 THEN 1070 

970 IF A=64 THEN 1050 

975 IF A=65 THEN JX=1:GOTO1050 

980 IF A272 THEN 1080 

990 IF A=80 THEN 1090 

1010 GOTO895 

1020 YzY-1:K-K*1:GOTO1215 
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1030 YzY*1:K-K-1:GOTO1220 

1040 X2X-1iJ2J-1:GOTO1240 

1020 X2X*1iJ2J4*1:GOTO1260 

1060 Y-Y-1:K-K*1:GOTO1075 

1070 Y=Y+1:K=K-1 

1075 X2X-1iJ2J -1:GOTO1100 

1080 YzY-1:K-K*1:GOTO1095 

1090 Y=Y+1iK=K-1 

1095 Х=Х+1:Ј=7Ј+1 

1100 IF X<=0 X20 

1110 IF Х>-127 Х-127 

1120 IF Ү<=0 Y=0 

1130 IF Ү>-22 Ү=22 

1140 IF J<=0 J=0 

1150 IF J>=127 J=127 

1160 IF К<-25 К=25 

1170 IF К>-47 К-47 

1150 SET(X,YYSETU ,K) 

1210 GOTO895 

1215 IF KY=1 RESET(X,Y*1 RESET( ,K-1) 

1216 GOTO1230 

1220 IF KY=1 RESET(X,Y-1Y REBET(J,K*1) 

1230 KY=0:GOTO1100 

1240 IF JX=1 RESET(X+1,YRESET(J+1,K) 

1230 JX=QiGOTO1100 

1260 ТЕ JX=1 RESET(X-1, YY RESET(U -1,K) 

1270 GOTO1250 

2000 REM INSTRUCTIONS 

2010 PRINT 

2020 INPUT"READ INSTRUCTIONS (Y/N)";A$ 

2030 IF A$="N" THEN 2050 

2040 GOTO2100 

2050 B=1 

2060 GOTOZO 

2100 PRINT | 

2110 PRINT"THIS PROGRAM WILL LET YOU DRAW" 
2120 PRINT"WHATEVER YOU WISH...BUT, WITH" 
2130 PRINT"A NEW TWIST: WHATEVER YOU DRAW" 
2140 PRINT"THE COMPUTER WILL DUPLICATE IN" 
2150 PRINT"A MIRROR IMAGE, HENCE, YOU CAN" 
2160 PRINT'CREATE MANY THOUSANDS OF DIFFERENT" 
2170 PRINT"PATTERNS." 

2180 PRINT 

2190 INPUT"PRESS SENTERJ';A$ 


31 


2200 CLSiPRINT 

2210 PRINT" YOU WILL HAVE THE CHOICE OF" 

2220 PRINT"DRAWING LEFT/RIGHT OR ТОР/ВОТТОМ," 

2230 PRINT"IF YOU SELECT LEFT/RIGHT, THE" 

2240 PRINT'COMPUTER WILL DUPLICATE YOUR WORK" 

2250 PRINT"ON THE RIGHT SIDE. IF YOU SELECT" 

2260 PRINT"TOP/BOTTOM, THE COMPUTER WILL" 

2270 PRINT"DUPLICATE YOUR WORK ON THE BOTTOM" 

2280 PRINT"OF THE VIDEO SCREEN." 

2300 PRINT" YOU WILL USE THE FOUR ARROW" 

2310 PRINT"KEYS TO DRAW ON THE SCREEN." 

2320 PRINT"TO MOVE AROUND THE SCREEN WITHOUT" 

2330 PRINT"DRAWING, PRESS ANY ARROW KEY PLUS" 

2340 PRINT"THE SHIFT KEY (THESE KEYS CAN ALSO BE" 

2350 PRINT"USED TO ERASE PREVIOUSLY DRAWN 
LINES)" 

2350 PRINT 

2370 INPUT"PRESS <ЕКТЕН>А% 

2380 CLS 

2390 PRINT 

2400 PRINT"TO CLEAR VIDEO (ERASE EVERYTHING 
DRAWN)" 

2410 PRINT"PRESS THE <CLEAR> KEY ONLY." 

2420 PRINT"YOU CAN THEN BEGIN AGAIN, DRAWING 
EITHER" 

2430 PRINT"LEFT/RIGHT OR TOP/BOTTOM PATTERNS," 

2440 PRINT 

2450 PRINT"NOTE: YOU CAN DRAW DIAGONAL" 

2460 PRINT"LINES (UP/RIGHT, UP/LEFT, DOWN/" 

2470 PRINT"RIGHT, DOWN/LEFT), BY USING" 

2475 PRINT'TWO ARROW KEYS TOGETHER." 

2480 PRINT"EXAMPLE: TO DRAW UP/RIGHT, PRESS THE" 

2490 PRINT"UP ARROW KEY * THE RIGHT ARROW KEY 
TOGETHER." 

2300 PRINT 

2910 dE ENTER TO BEGIN YOUR PATTERNS"; 


2520 CLS 

2530 B=1 

2540 GOTO20 

2600 REM TERMINATE 

| 2610 MX=2 

2620 GOSUB600 

2630 PRINT 

2640 PRINT ТАН(15)"% PROGRAM TERMINATED ғ 
2630 END 
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Teaching and Learning Games 


WORDS TOGETHER 


Together 
Clothes Pin 


Words will be printed one at a time, but they will look like more than one 
word. And, incredible as it might sound, when you finish guessing the words 
in this game, your total score must be at or below zero to win. In fact, that is 
the only way you can win! 


Sample Run 
/// WORDS TOGETHER /// 
INSTRUCTIONS? YES 


PUTTING WORDS TOGETHER OR 


TAKING THEM APART MIGHT SOUND 
QUITE SIMPLE TO MOST, BUT THIS 
GAME HAS A SPECIAL TWIST. AFTER 
YOU GET STARTED (NO MATTER WHAT 
AGE GROUP YOU'RE IN) YOU MIGHT 
ENCOUNTER A FEW DIFFICULTIES. 


PRESS ENTER? 
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START 


Yes 


Output 
instructions 


Read 
data list 


Message STOP 
Yes total points 


Select RND 
word 

Print left$ 

of word 
Print right$ DIR 

of word 
Print MID$ 

of word 

K$-LS$ Message 
output 


Computer 
left-right 
select 


Output 
message 


Divide 
No Yes word 


Flowchart for Words Together 
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WORDS WILL BE SELECTED RANDOMLY 
FROM A SET OF 45. THIS PROGRAM 
WILL USE THE LEFT$, RIGHT$, AND 
MID$ FUNCTIONS TO PRINT PIECES OF 
EACH WORD. EACH “PIECE” CAN 
CONTAIN ANY NUMBER OF LETTERS 

IN THE ORDER IN WHICH THEY APPEAR 
IN THE WORD. THE COMPUTER WILL SHOW 
YOU MORE AND MORE PIECES. WHEN 
YOU ARE SURE WHAT THE COMPLETE 
WORD IS, PRESS THE ENTER KEY. 


PRESS ENTER? 


TO FAMILIARIZE YOU WITH THE 

SCORING SYSTEM, HERE IS A SAMPLE: 
THE COMPUTER STARTS PRINTING 

PIECES OF A WORD. AFTER YOU 
RECOGNIZE THE WORD YOU PRESS ENTER. 
THE COMPUTER WILL TELL YOU HOW 
MANY TIMES IT PRINTED DIFFERENT 
PIECES OF THAT WORD, SAY 20. 


PRESS ENTER? 


YOU THEN INPUT THE WORD; SAY 

THE WORD IS ‘HELPLESS’. IF YOU 

ARE CORRECT AND YOUR SCORE IS 
ALREADY AT OR BELOW 0 (ZERO), IT 

WILL REMAIN THERE. IF, ON THE 

OTHER HAND, YOU ARE INCORRECT, YOUR 
SCORE WILL BE INCREASED BY 20 

POINTS (THE NUMBER OF PIECES PRINTED) 
PLUS 8 MORE POINTS FOR THE NUMBER OF 
LETTERS IN THAT WORD. 


PRESS ENTER? 


THE OBJECT WILL BE TO ENTER 
ALL 45 WORDS AND HAVE YOUR 
FINAL SCORE AT 0 (ZERO). THIS 
IS THE ONLY WAY YOU CAN WIN !! 
PRESS ENTER NOW TO RECEIVE 
YOUR FIRST WORD? 
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AW AOULAW AW OOULAAW OUL 


11 RANDOM PIECES OF THE 
WORD HAVE BEEN PRINTED. 


ENTER THE COMPLETE WORD? OUTLAW 


VERY WELL DONE... 

THAT WORD CONTAINS 6 LETTERS 
SO 6 POINTS HAVE BEEN 
DEDUCTED FROM YOUR SCORE. 
YOUR SCORE IS NOW: 0 POINTS. 


THE COMPLETE WORD WAS: 
OUTLAW 
NOTE THAT THE WORD CONTAINS 
2 PARTS, THE COMPUTER WILL 
SELECT EITHER THE LEFT SIDE 
OR THE RIGHT SIDE OF THE 
WORD (RANDOM SELECTION). 
INPUT YOUR CHOICE (LEFT OR 
RIGHT) AND THE COMPUTER WILL 
‘TRY TO MATCH? LEFT 


xxx The computer will tell you if its choice happened to match yours 
and will deduct points if it didn't! жж 


PRESS ENTER WHEN YOU ARE 
READY TO CONTINUE? 


ORT TTRT OROOR 


8 RANDOM PIECES OF THE 
WORD HAVE BEEN PRINTED. 


ENTER THE COMPLETE WORD? PASSPORT 


SORRY... YOU MISSED THAT 

WORD. IT CONTAINED 6 LETTERS. 

ADDING THE 6 POINTS TO YOUR 

SCORE GIVES YOU A TOTAL OF 14 POINTS... 
IDENTIFY THE NEXT WORD TO GET 

YOUR SCORE BACK DOWN TO 0! 


PRESS ENTER WHEN YOU ARE 
READY TO CONTINUE? 
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DBYE ODBYE ODBBYOYE DYODDODBYBYE 
DBODBDBYYE BDBO 


23 RANDOM PIECES OF THE 
WORD HAVE BEEN PRINTED. 


ENTER THE COMPLETE WORD? GOODBYE 


VERY WELL DONE... 

THAT WORD CONTAINS 7 LETTERS, 
SO 7 POINTS HAVE BEEN 
DEDUCTED FROM YOUR SCORE. 
YOUR SCORE IS NOW: 0 POINTS. 


PRESS ENTER WHEN YOU ARE 
READY TO CONTINUE? 


IFRIFTWOOD WOIFWOD OIFD 


10 RANDOM PIECES OF THE 
WORD HAVE BEEN PRINTED. 


ENTER THE COMPLETE WORD? DRIFTWOOD 


VERY WELL DONE... 

THAT WORD CONTAINS 9 LETTERS. 
SO 9 POINTS HAVE BEEN 
DEDUCTED FROM YOUR SCORE. 
YOUR SCORE IS NOW: 0 POINTS. 


PRESS ENTER WHEN YOU ARE 
READY TO CONTINUE? 


TOCTIRCTOR 


4 RANDOM PIECES OF THE 
WORD HAVE BEEN PRINTED. 


ENTER THE COMPLETE WORD? TRACTOR 


SORRY...YOU HAVE MISSED THAT 

WORD. IT CONTAINED 8 

LETTERS. ADDING THE 8 POINTS TO YOUR 
SCORE GIVES YOU A TOTAL OF 12 POINTS... 
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IDENTIFY THE NEXT WORD TO GET 
YOUR SCORE BACK DOWN TO 0! 


PRESS ENTER WHEN YOU ARE 
READY TO CONTINUE? 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE! WORDS TOGETHER 

20 CLEAR 1000:CLS‘RANDOMIE=150 

30 PRINT TAB(Z0);"/// WORDS TOGETHER ///" 

40 PRINT:DIM W$(46),X(46) 

30 INPUT"INSTRUCTIONS";X$ 

60 IF X$-"NO" OR X$="N" THEN CLS:GOTOS00 

70 PRINT 

80 PRINT'PUTTING WORDS TOGETHER OR" 

90 PRINT'TAKING THEM APART MIGHT SOUND" 
100 PRINT"QUITE SIMPLE TO MOST, BUT THIS" 

110 PRINT"PROGRAM HAS A SPECIAL TWIST. AFTER" 
130 PRINT"YOU GET STARTED (NO MATTER WHAT" 
140 PRINT'AGE GROUP YOU'RE IN) YOU MIGHT" 
150 PRINT"ENCOUNTER A FEW DIFFICULTIES." 

140 PRINT 

170 INPUT"PRESS ENTER";XX 

130 CLS 

190 PRINT"NORDS WILL BE SELECTED RANDOMLY" 
200 PRINT"FROM A SET OF 45. THIS PROGRAM" 

210 PRINT"WILL USE THE LEFT$, RIGHT$, AND" 
220 PRINT"MID$ FUNCTIONS TO PRINT PIECES OF" 
222 PRINT'EACH WORD. EACH PIECE CAN" 

274 PRINT"CONTAIN ANY NUMBER OF LETTERS IN" 
226 PRINT'THE ORDER IN WHICH THEY APPEAR" 
228 PRINT"IN THE NORD. THE COMPUTER WILL SHOW" 
230 PRINT"YOU MORE AND MORE PIECES. WHEN" 
235 PRINT"YOU ARE SURE WHAT THE COMPLETE" 
200 PRINT"WORD IS, PRESS THE ENTER KEY." 

255 INPUT"PRESS ENTER";XX:CLS 

270 PRINT"TO FAMILIARIZE YOU WITH THE" 

280 PRINT"SCORING SYSTEM, HERE 15 A SAMPLE?" 
290 PRINT"THE COMPUTER STARTS PRINTING" 

300 PRINT" PIECES OF A WORD, AFTER YOU" 
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310 PRINT"RECOGNIZE THE WORD, YOU PRESS ENTER." 
320 PRINT'THE COMPUTER WILL TELL YOU HOW" 
330 PRINT"MANY TIMES IT PRINTED DIFFERENT" 
340 PRINT" PIECES OF THAT WORD, SAY 20," 

350 INPUT"PRESS ENTER";XX;CLS 

360 PRINT"YOU THEN INPUT THE WORD; SAY" 
370 PRINT"THE WORD IS ‘HELPLESS’: IF YOU" 

380 PRINT'ARE CORRECT AND YOUR SCORE 15" 
390 PRINT" ALREADY AT OR BELOW 0 (ZERO), IT" 
400 PRINT"WILL REMAIN THERE, IF, ON THE" 

410 PRINT"OTHER HAND, YOU ARE INCORRECT, YOUR" 
420 PRINT'SCORE WILL BE INCREASED BY 20" 
430 PRINT"POINTS (THE NUMBER OF PIECES PRINTED)" 
440 PRINT"PLUS 8 MORE POINTS FOR THE NUMBER OF" 
450 PRINT"LETTERS IN THAT WORD." 

460 INPUT"PRESS ENTER";XX‘CLS 

470 PRINT"THE OBJECT IS TO ENTER" 

480 PRINT" ALL 45 WORDS AND HAVE YOUR" 

490 PRINT"FINAL SCORE AT 0 (ZERO), THIS" 

492 PRINT"IS THE ONLY WAY YOU CAN WIN !!" 
495 PRINT"PRESS ENTER NOW TO RECEIVE" 

498 INPUT" YOUR FIRST WORD';XX:CLS 

300 FOR I-1T045 

510 X(D=LREAD W$(INNEXT 

320 I-RND(45) 

530 IF T=45 THEN 1400 

340 IF X(I)-:0 THEN 520 

390 X(I)=0 

360 REM WORD 

370 TZT*1:T$-W$(OYR-LEN(G$) 

575 IF GH-1 THEN 590 

580 REM RANDOM LETTERS 

585 G-PEEK(15340XHIF Q=1 THEN 680 

390 L=(RND(R)-RND(4)) 

395 IF L<=0 OR L=R THEN 585 

600 PRINTQGE,RIGHT$(T$,L)?" "j 

605 IF L>=4 AND L&-6 THEN 640 

610 LIZ(RND(O-LYUPRINTQE22,RIGHTS(T$,L*1) 
615 IF І1<=0 THEN 585 

520 PRINTQE*A,LEFTS(T$,L 1) 

630 UZU*1:GOTO6560 

640 PRINTQE*6,MIDS(C$,L,L)?" "5 

650 UU*1:GOTOS85 

660 IF Q=1 THEN 680 
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670 GOTOS85 

680 PRINT 

690 PRINT U;"RANDOM PIECES OF THE" 

700 PRINT"WORD HAVE BEEN PRINTED." 

710 PRINT 

720 PRINT"ENTER THE COMPLETE WORD"} 

730 INPUT A$ 

740 IF A$<>T$ THEN 900 

750 PRINT"VERY WELL DONE..." 

770 PRINT'THAT WORD CONTAINS";R;"LETTERS," 
780 PRINT"SO";R;"POINTS HAVE BEEN" 

790 PRINT"DEDUCTED FROM YOUR SCORE" 
795 PRINT"YOUR SCORE IS NOW3"; 

800 D-D-U-RiIF D<=0 THEN D=0 

810 PRINT D;"POINTS," 

520 PRINT:GOTO1000 

$30 PRINT"PRESS ENTER WHEN YOU ARE" 

540 INPUT"READY TO CONTINUE'XX 

850 С1.5:7=0:0=0 

860 РКІМТ(8150;; 

870 GH21:GOTO920 

900 REM MISSED WORD 

910 PRINT"SORRY...YOU MISSED THAT" 

920 PRINT'WORD, IT CONTAINED";R;"LETTERS," 
930 PRINT'ADDING THE";jR;"POINTS TO YOUR" 
940 PRINT'SCORE GIVES YOU А TOTAL ОҒ"; 
950 D-DHUHR 

9552 PRINT D;"POINTS +4" 

960 ТЕ D»-1 THEN 980 

970 GOTOSZO 

930 PRINT"IDENTIFY THE NEXT WORD TO GET" 
985 PRINT" YOUR SCORE BACK DOWN TO ZERO." 
990 GOTO?70 

1000 REM DIVIDE WORD 

1010 X-RND(Ż) 

1020 IF Y=1 THEN PRINT:GOTO830 

1030 PRINT'THE COMPLETE WORD WAS?" 

1040 PRINT TAB(S);T$ 

1050 PRINT"NOTE THAT THE WORD CONTAINS" 
1060 PRINT"Z PARTS, THE COMPUTER WILL" 
1070 PRINT"SELECT EITHER THE LEFT SIDE" 
1080 PRINT"OR THE RIGHT SIDE OF THE" 

1090 PRINT"WORD (RANDOM SELECTION)" 
1100 PRINT'INPUT YOUR CHOICE (LEFT OR" 
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1110 PRINT"RIGHT) AND THE COMPUTER WILL" 
1120 INPUT"TRY TO МАТСН";КФ 

1130 IF K$<>"LEFT" AND K$<>"RIGHT" THEN 1150 
1140 GOTO1180 

1150 PRINT"PAY ATTENTION !!!" 

1160 PRINT'INPUT THE WORD LEFT OR RIGHT..." 
1170 PRINT:GOTO1100 

1180 I=RND(Z) 

1190 ON I GOTO 1200,1210 

1200 L$2"LEFT":GOTO1220 

1210 L$="RIGHT" 

1220 PRINT TAB); L$ 

1230 PRINT"THE COMPUTER’S CHOICE WAS:" 
1240 IF K$<>L$ THEN 1270 

1250 PRINT"EQUAL TO YOURS, VERY GOOD..." 
1260 PRINT:D=D‘GOTO830 

1270 PRINT"NOT EQUAL TO YOURS see." 

1280 PRINT"THE NUMBER OF LETTERS IN THAT" 
1290 PRINT'WORD WILL BE ADDED TO YOUR" 
1300 PRINT'TOTAL SCORE. SORRY," 

1310 PRINT:D-D*R:GOTOS830 

1400 REM END 

1410 CLS 

1420 PRINT 

1430 IF D>=1 THEN 1490 

1440 PRINT"CONGRATULATIONS !!!" 

1450 PRINT" YOU HAVE COMPLETED ALL 45" 
1440 PRINT"WORDS AND KEPT YOUR SCORE" 
1470 PRINT"AT (OR BELOW) 0 (2ЕКО)," 

1480 GOTO1550 

1490 PRINT"SORRY,...YOU LOSE !!" 

1500 PRINT" YOUR FINAL SCORE IS ABOVE" 
1510 PRINT'O (ZERO), AS A MATTER OF" 

1520 PRINT"FACT YOUR TOTAL SCORE WAS" 
1530 PRINT"PLUS ";0;" POINTS. SOMETHING" 
1540 PRINT" YOU DIDN'T WANT..." 

1350 PRINT 

1560 PRINT 

1570 PRINT"END OF PROGRAM RUN" 

1580 GOTO1580 

5000 DATA SOMEWHERE,NOWHERE,AFTERWARDS 
5010 DATA INWARD,OUTWARD,TOGETHER 

5020 DATA PASSPORT, ,PAYDAY,OVERCHARGE 
5030 DATA WOODMAN, IMPORT,IMPROVE 
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5040 DATA INCLINE,INJECTOR,AMONG 

3050 DATA EYEBALL,SUNDIAL,REACTION 
3050 DATA RAWHIDE,REACT,KINDERGARDEN 
3070 DATA OUTLAW,OUTPUT,OUTSTANDING 
3080 DATA OUTRIGGER,OUTPOST,OUTFIT 


3090 DATA FIGUREHEAD,PRESSURE,ACORN 

5100 DATA BADLANDS,WOODCHUCK,BLACKOUT 
3110 DATA BLACKMAIL,DRUMSTICK,DRIFTWOOD 
3120 DATA FOREHAND,FORBID,FOOTBALL 

2130 DATA BASEBALL,HANDBALL,RACQUETBALL 
3140 DATA MOUSETRAP,FOXHOUND, FRAMEWORK 
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ALL ABOUT NUMBERS 


This program will teach your child the digits zero through nine. Then it 
teaches counting, using pictures of trees to help the child count to his or her 
own age. The program continues with higher counting exercises and asks 
your child (by name) to input the number of trees drawn. Finally the program 
branches into two digit counting. 


Sample Run 


PLEASE INPUT YOUR FIRST NAME? DAVID 
*** ALL ABOUT NUMBERS *** 


THIS IS A LEARNING PROGRAM DESIGNED 

FOR PRESCHOOL CHILDREN OR 

CHILDREN THAT ARE JUST BEGINNING 
SCHOOL. YOU CAN HELP THEM BY READING 
ALL NECESSARY INSTRUCTIONS/INFORMATION. 


INSTRUCTIONS: 


NUMBERS HAVE BEEN AROUND SINCE TIME 
BEGAN. YOU WILL LEARN ALL ABOUT 
NUMBERS, FROM THEIR SHAPES TO 

SIMPLE COUNTING. 


PRESS THE ENTER KEY? 


ALL NUMBERS ARE MADE FROM A BASIC 
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START 


Set 
variables 


Input 
user name 


Print 
instructions 


Begin 
number lesson 


Set additional 
variables 


Start counting 
lesson 


Input 
answers 


Test all 
answers 


Print score 
message 


Print final 
message 


Flowchart for A// About Numbers 
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GROUP OR SET OF NUMBERS. THESE ARE: 
0123456789 


NOTICE THE ‘SHAPE’ OF EACH NUMBER. 
THE NUMBERS 0-9 CAN BE USED IN ANY 
COMBINATION TO MAKE ANY NUMBER YOU 
DESIRE. 

HOW OLD ARE YOU, DAVID? 6 


AS AN EXAMPLE, WE’LL USE TREES 
AND COUNT TO YOUR AGE, DAVID. 


PRESS ENTER? 


TT TT 


DID YOU COUNT AS THE TREES 
WERE DRAWN DAVID? 
YOU SHOULD HAVE. 


THE NUMERAL ‘0’ WASN’T USED BECAUSE 
WE STARTED COUNTING WITH T 

NOT ‘0.’ 

PRESS ENTER? 

NOW WE’LL USE THE TREES AGAIN, BUT 
THIS TIME WE WILL COUNT EVEN 
HIGHER. 


PRESS ENTER? 
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Program Listing 


10 REM PROGRAM TITLE; ALL ABOUT NUMBERS 

20 CLS 

30 GOTO70 

50 FOR T=1TO1000;NEXT 

60 RETURN 

70 01=24:02=27:03=30:04=33 

80 INPUT'PLEASE INPUT YOUR FIRST МАМЕ; АФ 

90 CLS{R=3;RR=82 

100 PRINT TAB(15);"### ALL ABOUT NUMBERS ###" 

110 PRINT 

120 PRINT'THIS I5 A LEARNING PROGRAM DESIGNED" 

130 PRINT"FOR PRESCHOOL CHILDREN OR" 

140 PRINT"CHILDREN THAT ARE JUST BEGINNING" 

150 PRINT"SCHOOL. YOU CAN HELP THEM BY READING" 

160 PRINT"ALL NECESSARY INSTRUCTIONS / 
INFORMATION," 

170 PRINT 

150 PRINT"INSTRUCTIONS:" 

190 PRINT"NUMBERS HAVE BEEN AROUND SINCE TIME" 

200 PRINT'BEGAN, YOU WILL LEARN ALL ABOUT" 

210 PRINT"NUMBERS, FROM THEIR SHAPES TO" 

219 PRINT"SIMPLE COUNTING." 

220 PRINT 

230 INPUT"PRESS THE ENTER KEY"}X 

240 PRINT 

280 PRINT'ALL NUMBERS ARE MADE FROM A BASIC" 

260 PRINT'GROUP OR SET OF NUMBERS THESE ARE:" 

270 GOSUBS0 

230 X-OTPRINT 

290 PRINTX; 

300 FOR T-ITOSOOiNEXT 

310 X=X+1 

320 IF X42» ТНЕМ?90 

330 PRINT 

231 PRINT"NOTICE THE ‘SHAPE’ OF EACH NUMBER." 

332 GOSUBSO 

240 PRINT"THE NUMBERS 0-9 CAN BE USED IN ANY" 

390 PRINT"COMBINATION TO MAKE ANY NUMBER YOU" 

360 PRINT" DESIRE," 

363 PRINT 

370 PRINT"HOW OLD ARE YOU, "3A$} 

372 INPUT A 
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375 PRINT 
380 PRINT"AS AN EXAMPLE, WE’LL USE TREES" 
390 PRINT"AND COUNT TO YOUR AGE ";A$}"," 
400 PRINT 
410 INPUT"PRESS ENTER"}X 
420 X=1:1=15'S3:11=IiCLs 
425 D=0:F=10;GOSUB430:GOTO440 
430 Ј=10:К=20:М=6:№=22 
435 RETURN 
440 FOR Q=J TOK 
450 SET(Q,D)SET(Q,D+4);NEXT 
460 FOR Q=MTON 
470 SET(Q,D+1)SET(Q,D+3)3NEXT 
480 FOR Q-M-ZTONHŻ 
490 SET(Q,D+-2)3NEXT 
300 FOR Q=D+5TOD+7 
310 SET(F+4,QSET(F+5,Q):SET(F+6,Q) 
920 NEXT 
930 FOR QzJ*2TOK -2 
540 SET(G,D48) NEXT 
941 IF BB-1 THEN 870 
242 IF GK=1 THEN 870 
345 PRINT(I,X iil-IH10 
990 X=X+1 
560 IF Х<-А AND X>=6 AND U=0 THEN 410 
570 IF Х<-А THEN 580 ELSE 700 
580 J=K+10iF=K+10:K=K+20 
590 M=N+é63N=N+20 
592 ТЕ GK=1 RETURN 
595 IF X=11 THEN 650 
600 FOR Т=1ТО225:МЕХТ:СОТО440 
610 U=1iGOSUB430 
. 620 0=0+12:Р=10 
630 І=11+256 
640 FOR T-1TOSOOINEXT:GOTO440 
650 REM COUNT (AGE) LIMIT 
640 PRINT@I+128-40,"LIMIT REACHED...AGE";X-1 
670 PRINT"PROGRAM AGE LIMIT REACHED..." 
578 GOSUBSO 
700 PRINT 
710 PRINT'DID YOU COUNT AS THE TREES" 
720 PRINT"WERE DRAWN "АФ?" 
730 PRINT"YOU SHOULD HAVE." 
740 PRINT 
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750 PRINT'THE NUMERAL ’0’ WASN'T USED BECAUSE" 
760 PRINT"WE START COUNTING WITH '1'" 
770 PRINT"NOT 0” (2ЕКО)," 
780 PRINT 
790 INPUT"PRESS ENTER"}Z 
800 CLS 
810 PRINT 
820 PRINT"NOW WE'LL USE THE TREES AGAIN, BUT" 
830 PRINT'THIS TIME WE WILL COUNT EVEN" 
840 PRINT'HIGHER." 
850 СК=1:Х=1:В=10 
360 GOTO400 
870 X=X+1 
875 FOR T-1TO225:NEXT 
880 IF X26 THEN 920 
890 IF X-B THEN ?45 
393 IF X=JB THEN 1270 
700 GOSUBI80 
710 GOTO440 
920 Р=0+12:Р=10 
920 GOSUB430 
940 GOTO440 
945 IF BB=1 THEN 1250 
950 PRINT((I*E)-RR;; 
| 935 IF 0%-"МО" AND DF=1 AND BB-1 THEN 1310 
960 PRINT"COUNT THE TREES "; 
965 IF PL=1 PRINT'AGAIN" ELSE PRINT 
970 PRINT"AND INPUT THE NUMBER"; 
980 INPUT АА% 
985 AA=VAL(AA$) 
990 IF АА<>Х-1 THEN 1010 
1000 PRINT"VERY WELL DONE ";А%;" 111" 
1005 FOR T21TO1000:NEXT:GOTO1125 
1010 PRINT'SORRT "А%; THAT IS INCORRECT." 
1011 IF X-1>9 AND LEN(AA$)<=1 THEN TX-1:GOTO1040 
1015 DF=1 
1020 INPUT"DO YOU WANT TO TRY AGAIN"jQ$ 
1025 PL=1 
1030 IF Q$="YES" AND BB-0 THEN 1050 
1035 IF Q$="NO" AND BB=0 THEN МУ-1:60Т01050 
1040 01=33:02=36:03=39:04=42 
1045 IF ТХ-1 GOSUBS0 
1050 FOR Yz0TO70 
1060 RESET(Y,01) 
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1070 RESET(Y,Q2) 

1080 RESET(Y,Q3) 

1090 RESET(Y,@4) 

1100 NEXT 

1102 IF MV=1 THEN 1140 

1105 IF TX=1 TX-01GOTO1400 

1110 FOR Т-1Т0500%МЕХТ 

1111 IF DF-1 AND BB-1 THEN 950 

1115 IF GK=2 THEN 1140 

1120 GOTO950 

1125 IF BB-1 THEN 1300 

1130 GK-2:GOTO1050 

1140 PRINTQ(*3)-82, 

1145 IF MV-1 MV=0:GOTO1350 

1150 PRINT"CAN YOU COUNT HIGHER THAN"; 
1160 PRINT X-1} 

1170 INPUT Q$ 

1180 IF Q$="YES" THEN 1200 

1190 PRINT"YOU SHOULD TRY ANYWAY, О.К." 
1195 GOTO1205 

1200 PRINT"WE'LL SOON FIND OUT !!" 

1205 FOR Т=1Т01500:МЕХТ:СОТО1500 

1210 REM COUNT TO 15 

1220 X-1iBB-11JB-161D-01F-10:PL-0 

1230 GOSUB430:GOTO440 

1240 X=X+1 

1250 IF X-JB THEN 1270 

1260 D-D*121F-101GOSUB4301GOTO1230 

1270 R-R*11RR-88 

1280 GOTO950 

1300 GOTO2100 

1310 PRINT"TRY ANYWAY !!!" 

1320 G$-""IDF-0 

1330 GOSUB50 

1340 GOTO950 

1350 PRINT"YOUR ANSWER WAS INCORRECT, BUT" 
1360 GOTO1150 

1400 REM SHOULD BE A TWO DIGIT INPUT 
1405 PRINTG(*R)-RRj 

1410 PRINT'(HINT: WE ARE WORKING WITH 2" 
1420 PRINT"DIGIT NUMBERS, REMEMBER ^" 
1430 GOSUBS0 

1440 GOTO1015 

1500 PRINT 
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1510 PRINT'WHEN COUNTING HIGHER THAN 9" 
1520 PRINT" REMEMBER THAT THERE WILL ВЕ" 
1530 PRINT'MORE THAN ONE DIGIT IN A" 

1540 PRINT"NUMBER, LIKE THIS?" 

1545 FOR T=1TOZ000;NEXT 

1550 PRINT 

1540 FOR W=1TOLOi‘FOR WW=1TOZOOINEXT WW 
1570 PRINT М; 

1580 NEXT 

1570 PRINT 

1400 FOR W=11TOZOi‘FOR WWz1TO200:NEXT WW 
1410 PRINT Wi; 

1620 NEXT 

1630 PRINT{PRINT 

1640 PRINT"NOTICE THAT AFTER THE NUMBER 9" 
1650 PRINT"THE NUMBERS ARE IN PAIRS (OR TWOS)." 
1440 PRINT"PRONOUNCE THE NUMBERS AS THE" 
1470 PRINT"COMPUTER ‘BLANKS’ THEM," 

1480 FOR T=1TOZO00;NEXT 

1590 NM-101PYz539i1JF71 

1700 PRINT@PY," "KFOR Т=1ТО200:МЕХТ 

1710 PRINT@PY,NM}:FOR T=1TO100:NEXT 

1720 IF JF<>3 THEN 1740 

1725 IF NM>=11 THEN 1750 

1730 PY=576:GOTO1750 

1740 JF-ZJF*1:FOR T2:1TO100!:NEXT:GOTO1700 
1750 NM=NM+1iJF=1 

1755 IF NM>=17 THEN PY=PY+4 

1760 IF NM-21 THEN 1780 

1770 GOTO1700 

1780 FOR Y=0TO70 

1790 RESET(Y,Q1+9)SRESET(Y ,Q2+9) 

1800 RESET(Y ,Q3+9)RESET(Y,Q4+9) 

1810 NEXT 

1820 PRINT@(I#R)-RR+197;} 

1830 PRINT"AFTER YOU HAVE STUDIED THE" 
1840 PRINT"NUMBERS PRESS THE ENTER" 

1850 INPUT"KEY"3Z 

1860 PRINT'OF COURSE THE COUNT CAN GO" 
1870 PRINT'MUCH HIGHER THAN 20, BUT" 

1380 PRINT'WE'RE NOT CONCERNED WITH THOSE" 
1890 PRINT'NUMBERS RIGHT NOW," 

1900 FOR T=1TO3000;NEXT 

1910 CLS 
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1920 PRINT 

1930 PRINT"USING OUR EARILER EXAMPLES, THE" 
1940 PRINT'TREES, WE WILL NOW COUNT" 

1950 PRINT'HIGHER THAN 9," 

1960 INPUT"PRESS THE ENTER KEY WHEN READY"3X 
1970 CLS 

1980 GKz110$-'" 

1990 B-11:DF-0 

2000 GOTO1210 

2100 PRINT 

2110 INPUT"PRESS THE ENTER KEV'Z 

2120 CLS 

2130 PRINT 

2140 PRINT"THAT CONCLUDES PART I OF" 

2150 PRINT"### ALL ABOUT NUMBERS ны" 

2150 PRINT 

2170 PRINT"SO LONG FOR NOW "ҘА 

2180 PRINT"YOU'VE DONE QUITE WELL." 

2190 END 
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ALL ABOUT NUMBERS II 


wn 


This program takes over where the preceding program left off. Counting 
exercises will be resumed; then your child will learn how addition works and 
complete some simple problems. The addition lesson will be followed by a 
similar lesson in subtraction. 


Sample Run 


** ALL ABOUT NUMBERS II ** 


ENTER YOUR FIRST NAME? DAVID 
THANK YOU, DAVID. 


INSTRUCTIONS FOR THIS PROGRAM ARE 

AS FOLLOWS: 

IF YOU ARE TEACHING YOUR PRESCHOOLER 
ALL ABOUT NUMBERS, YOU SHOULD FIRST 
HAVE HIM/HER COMPLETE PART I SUCCESS- 
FULLY BEFORE HE OR SHE ATTEMPTS 

THIS PART. 


жж PRESS ANY KEY ** 


THIS PROGRAM WILL CONTINUE THE 
COUNTING EXERCISES; THEN IT WILL 
BRANCH INTO SIMPLE ADDITION/SUBTRACTION. 
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Print 
instructions 


Set counter 
variables 


Start counting 
exercises 


Simple add 
problems 


Input 
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correct prob. 


Simple sub. 
problems 


Input 
answers 


Message 
total correct 


Flowchart for All About Numbers 1! 
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SO IF YOU ARE READY, DAVID 
JUST PRESS ANY KEYS, О.К? 


THE EXAMPLES THAT WERE JUST 
GIVEN HAVE SHOWN YOU NUMBERS 
FROM 1 THROUGH 40, AND HOW MANY 
‘BLOCKS’ IT TAKES TO MAKE EACH 
NUMBER. YOU SHOULD HAVE COUNTED 
EACH BLOCK, DAVID, AS PART OF 
YOUR COUNTING EXERCISE. 


WE WILL NOW BRANCH TO SIMPLE 
ADDITION. 

ADDITION OR ADDING IS WHAT WE DO 
TO INCREASE A NUMBER BY ANY GIVEN 
AMOUNT. SAMPLE PROBLEM: 

JOHN HAS 3 APPLES THAT HE 

BOUGHT AT THE STORE. HIS MOTHER 
ALREADY HAD 2 APPLES AT THE 
HOUSE. TAKING THE APPLES THAT 
JOHN BOUGHT AND ADDING THE APPLES 
THAT HIS MOTHER HAD, HOW MANY 
APPLES DOES JOHN HAVE? 3 


YOU ARE INCORRECT, DAVID !!! 

ALL YOU WOULD HAVE HAD TO 

DO WAS TO COUNT JOHN’S APPLES AND 
THEN TO CONTINUE COUNTING THE 
APPLES HIS MOTHER ALREADY HAD. 


This very short sample run should give you 

a general idea of how the program works. It 

will teach your child how to count. Then 

it will present some addition and subtraction problems. 


Program Listing 


2900 DIM X(30),W(30),F (40) 

2910 DIM G(40),0(30),A(15) 

2920 RANDOM 

3000 REM PROGRAM TITLE: ALL ABOUT NUMBERS II 
3010 REM IF YOU HAVE PLENTY OF MEMORY 

3020 REM SPACE AVAILABLE YOU CAN COMBINE 
3030 REM * ALL ABOUT NUMBERS PART I * 
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3040 REM WITH THIS PART (PART IT) 

3050 REM REQUIREMENTS WOULD BE ATLEAST 

3060 REM 32K OF RAM 

3065 CLS 

3070 PRINT TAB(15);"## ALL ABOUT NUMBERS II ##" 

3080 PRINT 

3090 INPUT"ENTER YOUR FIRST NAME";A$ 

3100 PRINT"THANK YOU, "АФ" 

3110 PRINT 

3120 PRINT'INSTRUCTIONS FOR THIS PROGRAM ARE" 

3130 PRINT" AS FOLLOWS!" 

3140 PRINT'IF YOU ARE TEACHING YOUR PRESCHOOLER" 

3150 PRINT"ALL ABOUT NUMBERS, YOU SHOULD FIRST" 

3160 PRINT"HAVE HIM/HER COMPLETE PART I 
SUCCESS-" 

3170 PRINT"FULLY BEFORE HE/SHE ATTEMPTS THIS 
PART." 

3180 PRINT 

3190 PRINT"s4 PRESS ANY KEY ##" 

3200 Z$-INKEVSJIF 2$-"" THEN 3200 

3210 CLS 

3220 PRINT 

3225 IF Х<>0 THEN 4230 

3226 IP GX=2 THEN 4480 

3227 IF GX-1 THEN 4570 

3230 PRINT"THIS PROGRAM WILL CONTINUE THE" 

3240 PRINT"COUNTING EXERCISES THEN IT WILL" 

3250 PRINT"BRANCH INTO SIMPLE ADDITION/ 
SUBTRACTION," 

3320 PRINT 

3330 PRINT"SO IF YOU ARE READY, ";А%;"," 

3340 PRINT"JUST PRESS ANY KEY, O.K.?" 

| 3350 Z$-INKETSJIF 7%-"" THEN 3350 

3355 X=13E=15 

3360 CLS 

3370 Ј=0:6=7:Н=8 

3380 0=0:Ү=1:Т=1 

3390 PRINTQJ,X; 

3400 FOR Q=GTOH 

3410 SET(G,UX'SET(G,Y) 

3420 NEXT 

3425 FOR Q1=1TO250;NEXT 

3430 IF X222 THEN 3490 
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3440 IF X-E GOSUB 3590:GOTO3630 

3450 Х=Х+1:0=Үү+2:Ү=Ү+3 

3433 IF X=41 THEN 3700 

3460 Ј=7+64 

3470 GOTO3390 

3490 IF T4» X THEN 3510 

3900 T=1 

3505 G-271H-8:GOTO3440 

3510 (з=Н+2!Н=Н+3 

3920 T=T+1 

3530 GOTO3400 

3390 PRINT 

3600 PRINT"STUDY...THEN PRESS ANY KEY."j 

3610 Z$-INKEY $!IF 7%-"" THEN3610 

3620 RETURN 

3630 X=X+1{E=E+14 

3640 GOTO3360 

3700 GOSUB3590 

3710 CLS:PRINT 

3715 IF FG-1 THEN 3835 

3720 PRINT"THE EXAMPLES THAT WERE JUST" 
3730 PRINT"GIVEN HAVE SHOWN YOU NUMBERS" 
3740 PRINT"FROM 1 THROUGH 40, AND HOW MANY" 
3750 PRINT"'BLOCKS' IT TAKES TO MAKE EACH" 
3760 PRINT'NUMBER. YOU SHOULD HAVE COUNTED" 
3770 PRINT"EACH BLOCK "jA$;" AS PART OF" 

3780 PRINT" YOUR COUNTING EXERCISE." 

3790 PRINT 

3800 PRINT"DO YOU WANT TO REVIEW THE COUNTING" 
3810 PRINT"EXERCISE AGAIN "jA$j 

3820 INPUT Q$ 

3830 IF 0%<>"МО" THEN 3340 

#835 CLS 

3840 PRINT 

3850 PRINT"WE WILL NOW BRANCH INTO SIMPLE" 
3860 PRINT" ADDITION." 

3870 PRINT'ADDITION OR ADDING IS WHAT WE DO" 
3880 PRINT"TO INCREASE A NUMBER BY ANY GIVEN" 
3890 PRINT'AMOUNT, SAMPLE PROBLEM?" 

3900 PRINT"JOHN HAS 3 APPLES THAT HE" 

3910 PRINT"BOUGHT AT THE STORE. HIS MOTHER" 


920 PRINT"ALREADY HAD 2 APPLES AT THE" 
3930 PRINT"HOUSE. TAKING THE APPLES THAT" 
3940 PRINT" JOHN BOUGHT AND ADDING THE APPLES" 
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3730 PRINT'THAT HIS MOTHER HAD, HOW MANY" 
3760 PRINT'APPLES DOES JOHN NOW НАТЕ"; 
3370 INPUT А 

3975 РБІМТІРБІМТ 

3980 IF А<>5 THEN 4240 

3990 РКІМТ"ҮОУ ARE CORRECT "АФ" 

3995 FOR Т-1Т701500%МЕХТ 

4000 PRINT'THE ‘SUM’ OF JOHNS’ APPLES: 

4010 FOR X-56TO65 

4020 SET(X,42);SET(X,43)sNEXT 

4030 FOR X=38TOs9 RESET(X,42)SRESET(X,43)}NEXT 
4050 FOR Xz62TO63:RESET(X,42)5 REBET(X,43NEXT 
4070 PRINT" PLUS THE APPLES HIS MOTHER HAS: 
4080 FOR X265TO70 

4090 SET(X,42);SET(X,43)sNEXT 

4100 RESET(67,42);RESET(67,43) 

4110 RESET(68,42);RESET (48,43) 

4120 PRINT"EQUALS А TOTAL OF: 

4130 Х=54:Ү=42 

4140 IF Х<>77 THEN 4160 

4150 GOTO4190 

4160 SET(X,YXSETOGY*1) 

4170 X=X+1 

4180 GOTO4140 

4190 FOR X-56TO77STEP4 

4200 RESET(X,YXRESET(X,Y 41) 

4210 NEXT 

4220 PRINT"S APPLES. "PRINT 

4225 GOTO3190 

4230 GOTO4370 

4240 PRINT"YOU ARE INCORRECT "jA$;" !!!" 

4250 PRINT"ALL YOU WOULD HAVE HAD TO" 
4260 PRINT"DO WAS TO COUNT JOHN’S APPLES AND" 
4270 PRINT"THEN TO CONTINUE COUNTING THE" 
4280 PRINT"APPLES HIS MOTHER ALREADY HAD." 
4285 FOR Т-1ТОЗ0000МЕХТ 

4290 PRINT"JOHN BOUGHT 3, THAT's "j 

4300 FOR X-1TO3:FOR Т-1Т050 

4310 NEXT ТІРБІМТ XiNEXTIPRINT 

4315 FOR T-1TO8S0:NEXT 

4320 PRINT"HIS MOTHER HAS 2, SO THAT'S "j 
4330 FOR X=4TOSFOR Т-1Т050 

4340 NEXT TIPRINT XiNEXTiIPRINT 

4350 PRINT"VERY SIMPLE...RIGHT ???" 
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4360 СОТО4000 

4370 PRINT 

4350 PRINT'ANYTIME YOU ADD NUMBERS YOU" 
4390 PRINT"WILL SEE (OR USE) A '*' (PLUS) SIGN." 
4400 PRINT 

4410 PRINT"YOU WILL NOW HAVE SOME SIMPLE" 
4420 PRINT'ADDITION PROBLEMS THAT YOU MUST" 
4430 PRINT"SOLVE, THEIR WILL BE NO ‘BLOCKS’ 
4440 PRINT"OR ‘APPLES’ TO HELP YOU, YOU MUST" 
4450 PRINT'SOLVE ON YOUR" 

4460 PRINT"OWN "АФИНЫ" 

4470 PRINT 

4475 X-DIGX-ZIL-55G0OTOS190 

4480 PRINT"THE COMPUTER WILL PRINT THE" 

4490 PRINT"PROBLEMS ON THE SCREEN, START AT" 
4500 PRINT" THE TOP LEFT, WORK ACROSS TO THE" 
4510 PRINT"RIGHT, THEN DROP DOWN TO THE" 
4520 PRINT'NEXT LINE.CONTINUE UNTIL ALL" 
4530 PRINT'PROBLEMS HAVE BEEN COMPLETED." 
4540 PRINT"REMEMBER TO PRESS THE ENTER KEY" 
4550 PRINT"TO INPUT YOUR ANSWER." 

4555 PRINT HJ=1:P$="+" 


4560 Y=1LiGX=1iGOTO3190 
4570 Т=5:М=7 

4580 X=RND(L) 

4585 X(Y)-X 


4590 IF J=1 PRINTTAB(GT-1)P$j 
4600 PRINT TAB(T);X} 

4610 IF T4255 THEN 4630 

4620 IF J<>1 THEN 4650 ELSE 4670 
4630 T=T+1OvY=Y+1 

4640 GOTO4580 

4650 J=1{PRINT 

4660 T-SIT-TH1:GOTO4580 

4670 T-41IPRINT 

4680 W$z"---- 

4690 IF T4564 THEN 4710 

4700 GOTO4740 

4710 PRINT TABT) W$; 

4720 Т=Т+10:НЈ=НЈ+1 

4730 GOTO4690 

4735 PRINTiPRINT!PRINTiJzO!YzY41:GOTO4570 
4740 IF HJ<=10 THEN 4735 

4745 GOSUB4750:GOTO4810 
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4730 I=13N=7iV=4 

4760 W(T)=X(I)+X(N) 

4770 IF Iċ-V THEN 4790 

4780 RETURN 

4790 I-I*1:N-N*1 

4300 GOTO4750 

4310 Т=261:Ү=1:0=0:С=6 

4320 PRINT@704,} 

4330 PRINT"INPUT YOUR ANSWERS"; 

4840 INPUT Q 

4850 PRINT(QT,G 

4860 IF Q42W(Y) THEN D=D+1iGOSUB4882 
4870 IF Y<>C THEN 4890 

4380 СОТО4920 

4882 F(D=X(YRG(D)=X(Y +6) 

4885 RETURN 

4390 T=T+10;Y=Y+1 

4900 PRINTQ723," " 

4910 GOTO4820 

4920 IF JK-1 THEN 4970 

4930 JK=1 

4940 1-134М-19%4/-19 

4945 С=18:Т=581:Ү=13 

4950 GOSUB4760 

4960 GOTO4820 

4970 PRINT(@704,; 

4980 PRINT"ALL PROBLEMS COMPLETED +++." 
4990 FOR T=1TO2000;NEXT 

3000 CLS 

3010 PRINT 

3020 IF D=0 THEN 5300 

3030 PRINT"YOU HAVE MISSED";D;"PROBLEMS ";А% 
3040 PRINT"THESE PROBLEMS ARE?" 

3050 R21 

3050 PRINTF(R);P$;G(R);"=" 

5062 IF PL=1 THEN U(F)Z(F(R)-G(R2IGOTOS5070 
3065 U(R)=F(R)+G(R) 

5070 IF R&2D THEN 5090 

5080 FOR Т-1Т01200:МЕХТ:СОТО5100 

3090 R=R+1:GOTOS060 

5100 PRINT@44,; 

2110 PRINT'PLEASE INPUT THE ANSWERS, " 
3120 PRINT"START AT THE TOP & WORK DOWN."; 
5130 Р=201:К=1:Х=0 
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3135 IF R222 PRINT@P-9,F(R)}P$;G(R);"="3 

5140 PRINTAF;; 

3150 INPUT © 

2160 IF Q<>U(R) THEN X=X+1:GOSUBS200 

3170 IF R<>D THEN 5190 

5180 GOTOZZZO 

5190 R-R*1:PzP4*64:1GOTOS5135 

5200 F(X)=F(R)}G(X)=G(R) 

5210 RETURN 

5220 PRINTQ44," 

5230 PRINT(Q1298;," 

5240 D=X 

5250 PRINT(Q44,j 

5260 GOTO4980 

5300 CLS 

5310 PRINT 

5320 PRINT"YOU HAVE COMPLETED 12 PROBLEMS." 
5330 PRINT"ALL YOUR ANSWERS ARE CORRECT, ;A$;"'!!" 
5340 PRINT"VERY WELL DONE '" 

5350 PRINT 

5355 IF PK=1 THEN 6610 

9360 PRINT"NOW YOU WILL LEARN HOW TO" 
3370 PRINT"SUBTRACT AND THEN DO 12" 

5380 PRINT"SIMPLE SUBTRACTION PROBLEMS." 
5390 GOTOS430 

5400 PRINT"### PRESS ANY KEY ###" 

2410 Z$=INKEYS$3IF Z$="" THEN 5410 

5420 RETURN 

5430 PRINT:GOSUBS400 

5440 CLS 

9460 PRINT"A SIMPLE DEFINITION OF SUBTRACTION" 
2470 PRINT"IS: “TAKE AWAY’. YOU MUST" 

3430 PRINT'REMEMBER THAT WITH SUBTRACTION" 
3490 PRINT"THE TOP NUMBER MUST BE HIGHER" 
9500 PRINT"THAN THE BOTTOM NUMBER." 

5510 PRINT TAB(10)j"10" 

3520 PRINT TAB(0O0)j"-5" 

5530 PRINT TAB(9);"——--" 

5550 PRINT"IN THE EXAMPLE ABOVE YOU ARE" 
9560 PRINT"SUBTRACTING (OR TAKING AWAY) 5" 
5570 PRINT'FROM 10, NOTE THAT THE 10" 

4980 PRINT"IS ABOVE THE 5. IF THIS PROBLEM" 
5490 PRINT"WERE TO BE SWITCHED AROUND." 
S600 PRINT 
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5510 GOSUBS400 

5620 CLS 

5030 PRINT 

3640 PRINT TAB(12)}"5" 

9650 PRINT TAB(10);"-10" 

5550 PRINT TAB(10);"---" 

2670 PRINT 

2680 PRINT"THE PROBLEM COULD NOT BE WORKED" 
2690 PRINT"SUCCESSFULLY,. 50 REMEMBER THAT" 
2700 PRINT"IN SUBTRACTION THE HIGHER" 
9710 PRINT"NUMBER MUST BE ABOVE THE" 

3720 PRINT"SMALLER ONE." 

3730 PRINT 

5740 GOSUBS400 

5750 CLS:PRINT | 

97560 PRINT"FIRST YOUR SAMPLE PROBLEM ";jA$;"," 
5770 PRINT"USING THE APPLES AGAIN," 

5780 PRINT 

5790 PRINT"JOHN HAS 5 APPLES IN HIS" 

5800 PRINT"REFRIGERATOR. 2 OF HIS FRIENDS" 
5810 PRINT"CAME OVER TO PLAY, JOHN ASKED" 
S820 PRINT"THEM IF THEY WANTED AN APPLE." 
5830 PRINT"BOTH OF HIS FRIENDS SAID" 

9940 PRINT" YES. JOHN ALSO ATE 1 APPLE." 
5250 PRINT'HOW MANY APPLES DOES JOHN" 
5850 PRINT"NOW HAVE LEFT"; 

5570 INPUT Q 

5880 PRINT 

9970 GOSUBS400 

3900 IF Q<>2 THEN 5940 

5910 PRINT"CONGRATULATIONS "jA$;" H 

5920 PRINT"YOU'VE ANSWERED CORRECTLY." 
5930 GOTO6020 

5940 PRINT"THAT'S WRONG ";A$;"," 

5950 PRINT"JOHN STARTED OUT WITH 5 APPLES." 
5950 PRINT"HE GAVE 2 TO HIS FRIENDS." 

2970 PRINT"HE ATE 1 APPLE." 

5980 PRINT"YOU MUST ADD THE 2 PLUS THE 1." 
5990 PRINT"THEN YOU SUBTRACT THE 3 FROM" 
&000 PRINT"THE TOTAL NUMBER OF APPLES, 5," 
6010 PRINT"YOU SHOULD HAVE ANSWERED 2," 
6020 PRINT 

5030 GOSUBS400 

6040 CLS:PRINT 
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6050 PRINT" YOU WILL NOW HAVE TO SOLVE 12" 
6060 PRINT"SIMPLE SUBTRACTION PROBLEMS." 
6070 PRINT'REMEMBER THAT IN SUBTRACTION THIS" 
6080 PRINT'SIGN WILL BE USED '-'. THIS IS A" 
6090 PRINT"MINUS SIGN MEANING SUBTRACT," 
6100 PRINT"WHEN YOU THINK YOU’RE READY," 
6110 GOSUBS400 

6120 CLSiP$-"-" 

6130 T-SIP-SIE-1iJ-SIL-9 

6140 X=RND(L) 

6150 Y=RND(L) 

6160 IF Y>X THEN 6140 

6165 IF PK=1 THEN 6175 

6170 F(IE)=X‘G(E)=Y¥{GOTO6180 

6175 F(K)=XiG(K)=Y 

6176 IF PK=1 PRINT TAB(T);F(K);:;GOTO6185 
6180 PRINT TAB(T);F(E); 

6185 IF Е<=Р THEN 6200 

6190 РКІМТ:ІСОЧТО6220 

6200 E=E+1:T=T+10 

6205 IF PK=1 K=K+1 

6210 СОТО6140 

6220 М-1Т-4 

6225 IF PK=1 М=7:7=11 

6230 PRINT TAB(T)}P$;G(M); 

6240 IF Mé-J THEN 6270 

6250 GOTO65290 

6270 M=M+1iT=T+10 

4280 GOTO&230 

62970 PRINT 

&300 М=1:Т=4:7=5 

6310 PRINT TAB(TI;W $; 

6320 IF Mé-J THEN M=M+1:T=T+10:GOTO6310 
6325 IF PK=1 THEN 6400 

6330 PRINT:PRINTiPRINT 

6340 РК=1:Т=5:К=7 

6390 GOTO6130 

6400 Т=197:1=1:0=0:С=5 

6410 PRINTQ704, 

5420 PRINT"INPUT YOUR ANSWERS"; 

6430 INPUT Q 

6440 PRINTQT,Q; 

6450 IF Q<>(F(I)-G(1)) THEN D=D+1;GOSUB46480 
6460 IF I<=C THEN 6500 
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6470 GOTO&530 

6480 F(D)-F(ING(OD)SG(G) 

6490 RETURN 

6500 T-T*10:I-I*1 

8510 РБІМТ(723," " 

6520 GOTO£&410 

6530 IF PL=1 THEN 6600 

6540 PL=1;T=517 

6580 I271Cz211:GOTO6410 

6600 GOTO4970 

66410 PRINT 

6620 PRINT" YOU HAVE COMPLETED 12 PROBLEMS" 
6630 PRINT"IN ADDITION AND 12 PROBLEMS IN" 
6640 PRINT'SUBTRACTION." 

6650 PRINT 

6660 PRINT"AFTER YOU REST AWHILE YOU CAN" 
6670 PRINT"RUN THE PROGRAM AGAIN, TO GET" 
6680 PRINT"MORE PRACTICE." 

6690 PRINT 

6700 PRINT"END OF ## ALL ABOUT NUMBERS II ##" 
6710 END 
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WORDS OF IMPORTANCE 


Why are they important words? Because you must memorize all the words 
before the screen clears; then input the list in reverse order. The length of 
time the words are left on the screen will increase as the number of words 
printed increases. Good luck on your score!! 


Sample Run 


** WORDS OF IMPORTANCE ж 
INSTRUCTIONS (Y/N)? Y 


THIS GAME PROGRAM WILL TEST 

YOUR MENTAL AGILITY TO ITS 
EXTREMES. YOU MUST HAVE TOP-NOTCH 
SKILLS AND BE ON YOUR TOES AT 

ALL TIMES TO COMPETE SUCCESSFULLY. 


UP TO FOUR PEOPLE CAN PLAY. THERE 
ARE FOUR DIFFICULTY LEVELS. 


ENTER? 


TO PLAY: 

YOU WILL BE GIVEN 2 WORDS 

(SIMPLE, COMPLEX OR ABBREVIATIONS 
DEPENDING UPON THE LEVEL SELECTED). 
AFTER A PREDETERMINED TIME 
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PERIOD THE VIDEO WILL 

BE CLEARED AND YOU 

MUST ENTER THE WORD(S) IN THEIR 
REVERSE ORDER. (NO TIME LIMIT 

IS USED FOR INPUT OF WORDS.) 

AFTER YOU HAVE FINISHED, THE 

NEXT PERSON WILL PLAY, AND SO 

ON. AFTER EVERYONE HAS PLAYED, THE 
COMPUTER WILL PRINT THE SCORES 

AT THAT POINT IN THE GAME. 


ENTER? 


HOW MANY PLAYERS? 2 
INPUT THE 2 PLAYERS FIRST 
NAMES ONLY 


ANNAJEAN 
DAVID 


THE COMPUTER WILL NOW SELECT 
THE FIRST PLAYER... 


IT’S YOUR PLAY, DAVID. 


SELECT YOUR DIFFICULTY LEVEL. 
1) SIMPLE WORDS 

2) COMPLEX WORDS 

3) 1 & 2 COMBINED 

4) ABBREVIATIONS 

SELECT NOW? 2 


THESE ARE YOUR 2 WORDS. 
TIMING WILL BEGIN AFTER ALL 
WORDS ARE PRINTED... 


COMPUTER 
DICTIONARY 


YOU MUST NOW INPUT THE 2 
WORDS IN REVERSE ORDER. 
DICTIONARY 

COMPUTER 
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Y 


es 
Print 
Instructions 
Input # of 
players 


Q<=0 or Q> =5 


Yes 


No 
Input players 
names 


Select first 
player 


ь. 


D<1orD>4 


Yes No 


Flowchart for Words of Importance 


Output 
message 


Read word 
data 


Cm 
Yes 
Input words E 


Advance points 
for player 
Advance 

player 


Print high 
oint winner 
No уде р 


STOP 


IT'S YOUR PLAY, ANNAJEAN. 


SELECT YOUR DIFFICULTY LEVEL. 
1) SIMPLE WORDS 

2) COMPLEX WORDS 
3) 1 & 2 COMBINED 
4) ABBREVIATIONS 
SELECT NOW? 1. 


THESE ARE YOUR 2 WORDS. 
TIMING WILL BEGIN AFTER ALL 
WORDS ARE PRINTED... 


CAT 
DOG 


YOU MUST NOW INPUT THE 2 
WORDS IN REVERSE ORDER. 


DOG 
CAT 


жж POINTS TOTAL SO FAR ** 
ANNAJEAN HAS 100 POINTS. 
DAVID HAS 100 POINTS. 


IT'S YOUR PLAY, DAVID. 


SELECT YOUR DIFFICULTY LEVEL 
1) SIMPLE WORDS 

2) COMPLEX WORDS 

3) 1 & 2 COMBINED 

4) ABBREVIATIONS 

SELECT NOW? 2. 


THESE ARE YOUR 3 WORDS. 
TIMING WILL BEGIN AFTER ALL 
WORDS ARE PRINTED... 


COMPUTER 
DICTIONARY 
CONFIDE 


67 


YOU MUST NOW INPUT THE 3 
WORDS IN REVERSE ORDER. 


CONFIDE 
DICTIONARY 
COMPUTER 


IT’S YOUR PLAY, ANNAJEAN. 


SELECT YOUR DIFFICULTY LEVEL. 
1) SIMPLE WORDS 

2) COMPLEX WORDS 

3) 1 & 2 COMBINED 

4) ABBREVIATIONS 

SELECT NOW? 1 


THESE ARE YOUR 3 WORDS. 
TIMING WILL BEGIN AFTER ALL 
WORDS ARE PRINTED... 


CAT 
DOG 
BOY 


YOU MUST NOW INPUT THE 3 
WORDS IN REVERSE ORDER. 


** POINTS TOTAL SO FAR ** 
ANNAJEAN HAS 250 POINTS. 
DAVID HAS 250 POINTS. 


IT'S YOUR PLAY, DAVID. 


SELECT YOUR LEVEL OF DIFFICULTY 
1) SIMPLE WORDS 

2) COMPLEX WORDS 

3) 1 & 2 COMBINED 

4) ABBREVIATIONS 

SELECT NOW? 2 
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///// STOP ///// 


The video clears after a certain time limit so that each player will have to 
use their memory when more words are printed. 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM WORDS OF IMPORTANCE 

30 CLS 

40 RANDOM 

a0 CLEAR 1000 

60 PRINT"## WORDS OF IMPORTANCE ##" 

70 PRINT 

80 INPUT'INSTRUCTIONS (Y/N)";X$ 

90 IF X$="N" THEN CLS:GOTO380 

100 PRINT"THIS GAME PROGRAM WILL TEST" 

110 PRINT"YOUR MENTAL AGILITY TO ITS" 

120 PRINT'EXTREMES, YOU MUST HAVE TOP-NOTCH" 
130 PRINT'SKILLS AND BE ON YOUR TOES AT" 

140 PRINT'ALL TIMES TO COMPLETE SUCCESSFULLY." 
150 PRINT"UP TO FOUR PEOPLE CÀN PLAY, THERE" 
160 PRINT'ARE FOUR DIFFICULTY LEVELS." 

190 PRINT 

200 INPUT'ENTER';X$ 

219 CLS 

220 PRINT"TO PLAY?" 

230 PRINT"YOU WILL BE GIVEN 2 WORDS" 

240 PRINT"(SIMPLE, COMPLEX OR ABBREVIATIONS" 
250 PRINT"DEPENDING UPON THE LEVEL SELECTED" 
260 PRINT'AFTER A PREDETERMINED TIME" 

270 PRINT"PERIOD THE VIDEO WILL" 

250 PRINT"BE CLEARED AND YOU" 

299 PRINT"MUST ENTER THE WORD(S) IN THEIR" 

300 PRINT"REVERSE ORDER. (NO TIME LIMIT" 

310 PRINT"IS USED FOR INPUT OF WORDS." 

320 PRINT"AFTER YOU HAVE FINISHED, THE" 

330 PRINT"NEXT PERSON WILL PLAY, AND 50" 

340 PRINT"ON. AFTER EVERYONE HAS PLAYED, THE" 
350 PRINT"COMPUTER WILL PRINT THE SCORES" 

360 PRINT'TO THAT POINT IN THE GAME." 

370 INPUT"ENTER";X$:CLS 

380 INPUT"HOW MANY PLAYERS";Q 
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390 IF Q<=0 OR 0>-5 THEN 380 

400 PRINT"INPUT THE";Q;"PLAYERS FIRST" 
410 PRINT"NAMES ONLY" 

420 FOR I-1TOG:INPUT N&(I) NEXT 

430 PRINT"THE COMPUTER WILL NOW SELECT" 
440 PRINT" THE FIRST PLAYER." 

450 F=RND(Q) 

460 T=RND(10) 

470 FOR I-1TOQVIF F=T THEN 490 

480 NEXT:GOTO450 

490 W$-N$(F) 

300 PRINT'IT'S YOUR PLAY, ";W$}3"."SPRINT 
310 PRINT"SELECT YOUR DIFFICULTY LEVEL." 
320 РКІМТ"1) SIMPLE WORDS" 

330 РКІМТ"2) COMPLEX WORDS" 

540 PRINT'3) 1 & 2 COMBINED" 

950 PRINT"4) ABBREVIATIONS" 

360 INPUT'SELECT NOW"jD 

9/0 IF D<1 OR 024 THEN 500 

380 IF D24 AND DD=0 THEN 400 

IVO GOTO660 

600 PRINT"YOU HAVE SELECTED NUMBER";D 
610 PRINT"WITH THIS SELECTION YOU WILL" 
620 PRINT"RECEIVE THE ABBREVIATION" 

430 PRINT"FOR EACH WORD. YOU MUST ENTER" 
640 PRINT"THE COMPLETE WORDS IN THEIR" 
630 PRINT"REVERSE ORDER..." 

855 FOR TI-1TO3000:NEXT:DDz-71 

660 REM READ DATA ONCE 

570 IF A=1 THEN 730 

680 FOR I-1TO10:READ S$(OIXWODZITNEXT 

690 FOR I=1TO10;READ C$(XNEXTIGOSUBI1900 
700 FOR I-1TO10:READ A$(OXNEXT 

710 FOR I-1TO10!READ AB$(XNEXT 

720 С- КЕМ WORD COUNT 

730 W(C)-C 

740 REM PRINT WORD(S) 

750 PRINT'THESE ARE YOUR";W(C);"WORDS," 
760 PRINT'TIMING WILL BEGIN AFTER ALL" 
770 PRINT'THE WORDS ARE PRINTED." SPRINT 
773 FOR JK=1TO1400;NEXT 

780 FOR I-1TOWtC) 

790 ON D GOTO 800,830,870,930 

800 REM SIMPLE WORDS 
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810 PRINT 5%(1):МЕХТ 

820 GOSUB1800:GOTO1000 

930 REM COMPLEX WORDS 

840 PRINT С%(1) 

850 NEXT 

880 GOSUB1800:GOTO1000 

870 REM SIMPLE & COMPLEX 

680 REM H$() 15 FOR THE 

890 REM 2 STRING COMBINATIONS 
900 PRINT Н%() 

910 NEXT 

920 GOSUB1800;GOTO1000 

730 REM ABBREVIATIONS 

940 PRINT А%(1) 

950 NEXT 

950 GOSUB1800:GOTO 1000 

1000 REM INPUT OF WORDS 

1005 CLS 

1010 PRINT"YOU MUST NOW INPUT THE";W(C) 
1020 PRINT"WORDS IN REVERSE ORDER." 
1030 FOR IZW(C)TO1 STEP-1 

1040 ON D GOTO 1050,1080,1110,1140 
1050 INPUT U$ 

1060 IF 0%=5%(1) THEN 1840 

1070 GOTO1170 

1080 INPUT U$ 

1090 IF U$-€$(I) THEN 1840 

1100 GOTO1170 

1110 INPUT U$ 

1120 IF U$2H$(I) THEN 1840 

1130 GOTO1170 

1140 REM ABBREVIATIONS 

1150 INPUT U$ 

1140 IF U$-AB$(I) THEN 1540 

1170 NEXT 

1180 REM POINTS PLACEMENT FOR PLAVERS 
1190 ON F GOTO 1200,1210,1220,1230 
1200 R12R1*PIINGO)ZR1:GOTO1240 
1210 RZ-RZHPIIN(ZI-RZEGOTO1240 
1220 RIi-RIHPEN(3IERZ:GOTO1240 
1230 RA-RA*PIIN(OD-RA 

1240 Ғ=Ғ+1:А=1:РІ=0:0%="" 

1250 IF F»0 THEN F=1 


T1 


1260 AA-AA*1 

1270 IF AA>=Q THEN C=C+1:AA=0'GOSUB1600 
1280 IF AA=0 AND C>=11 THEN 1300 

1290 GOTO490 

1300 REM FINISH 

1310 РКІМТІРКІМТ"ТНАТ”5 THE GAME." 

1320 REM HIGH POINT WINNER 

1330 JJ=1 

1340 FOR I-1TOQ 

1350 IF N(DID-N(IH1) THEN 1390 

1360 WZN(IOXNOFN(GOTL XN(I+1)=W 

1370 XX$=NS(IUNS(D=NS(I+1 SN&(I+1)=XXS 
1380 JJ=0 

1390 NEXT 

1400 IF JJ=0 THEN 1330 

1410 Р=1:ТТ=1 

1420 FOR I-2TOQVIF N(F)-N(I) THEN 1440 

1430 NEXT:GOTO1450 

1440 TT-TT*1:GOTO143060 

1450 IF TT<>Q THEN 1490 

1460 PRINT'ALL PLAYERS HAVE MANAGED TO END" 
1470 PRINT"WITH A TIE SCORE..." 

1480 GOTO1540 

1490 PRINT"THE WINNER 15: "3N$(1) 

1500 PRINT"WITH A TOTAL OF"iN(1 "POINTS," 
1505 IF Q=1 THEN 1540 

1310 PRINT'THE OTHER PLAYERS, IN ORDER OF POINTS?" 
1520 FOR I-2TOQ 

1330 PRINT №(1);" HAD'jNOX"POINTS,":INEXT 
1540 PRINT 

1550 PRINT": END OF GAME RUN 33" 

1540 END 

1600 REM POINTS TOTAL 

1610 RE=1 

1620 PRINT"## POINTS TOTAL "j 

1630 IF С<=10 PRINT"SO FAR ##" ELSE PRINT" ##" 
1640 PRINT N$(RE)" HAS";N(RE);"POINTS." 
1650 IF RE«20 THEN RE-RE*1:GOTO16406 

1660 PRINTiRETURN 

1300 REM TIMING LOOP 

1810 FOR TI-1 TO W(C)#(50+175) 

1320 NEXT 

1830 RETURN 

1840 PI-PI*50 
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550 GOTO1170 
1900 REM COMBINE STRINGS 
1910 FOR I-1T09 STEP 2 
1920 H&(I)=SS(I MN NEXT 
1930 FOR I-2T010 STEP 2 
1940 H$(D=C$(I NEXT 
1950 RETURN 
2000 REM SIMPLE WORDS 
2010 DATA CAT,DOG,BOY,GIRL,HI 
2020 DATA HELLO,HOUSE,CAR,BOAT,TOY 
2030 REM COMPLEX WORDS 
2040 DATA COMPUTER,DICTIONARY,CONFIDE 
2050 DATA COMPETE,ADDITIVE,FORMULA 
2060 DATA PERFORATE,EXTREME,DERIVATIVE 
2070 DATA CINEMATOGRAPHER 
2080 REM ABBREVIATIONS 
2090 DATA ABBR,ESP,INSTR,M 
2100 DATA CONSTR,OBS,TECH 
2110 DATA FR,AMER,ATTY 
2120 REM WORDS FOR ABBREVIATIONS 
2130 DATA ABBREVIATION,ESPECIALLY 
2140 DATA INSTRUMENTAL,MILES,CONSTRUCTION 
2150 DATA OBSOLETE,TECHNOLOGY,FROM 
2160 DATA AMERICAN, ATTORNEY 


73 


PUTTING NAMES TOGETHER 


J Б. 
Px 


<< 


In this game, numerals will be substituted for letters in a name. The user 
must input what he or she thinks the chosen name is. The game could easily 
be changed into a code program. 


Sample Run 


PUTTING NAMES TOGETHER 
INSTRUCTIONS? YES 


THE EASIEST WAY TO LEARN SOME 
ONE'S NAME IS TO ASK FOR IT 

THEN WRITE IT DOWN. 

ALL SO FAMILIAR AND EASY, RIGHT? 
WRONG !! 

THIS ISN'T GOING TO BE A RUN- 
OF-THE-MILL NAME GATHERING PRO- 
GRAM. TO BEGIN WITH, YOU WILL 
INPUT YOUR FIRST NAME? DAVID. 


USING YOUR NAME, THE COMPUTER WILL 
SHOW YOU HOW THE PROGRAM WILL 
WORK AND WHAT MUST BE DONE TO 
EARN THE MOST POINTS. 

IF YOU DON'T CARE FOR THE NAMES 

IN THE PROGRAM YOU CAN CHANGE THE 
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START 


Clear memory 
DIM statements 


Yes 
Print 
instructions 


Input user’s 
first name 
Read data 
Set strings 


Yes 
Continue 
instructions 


Set/reset 
variables 


Flowchart for Putting Names Together 


No 
Get another 
name 


=D$ from points 
Advance 
points 


Subtract len (word) 


Final 
Yes message 
STOP 
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DATA ELEMENTS AT LINES 5020 - 5040. 
PRESS ENTER NOW TO SEE HOW 
THE PROGRAM WORKS? 


YOUR NAME IS DAVID. 

SO THAT MEANS WE COULD USE 
THE NUMBERS 

412294 


AS A CODE FOR YOUR NAME. 
012290 


TO MAKE THE GAME MORE DIFFICULT 
ALL LETTERS THAT OCCUR MORE THAN 
ONCE ARE REPLACED BY ZEROS. 

PRESS ENTER? 

THE ZEROS ARE DELETED, AND THE 
NUMBERS FOR THE FIRST OCCURRENCES 
OF REPEATED LETTERS ARE REINSERTED. 
WE HAVE 


41229 


NOW WE HAVE THE BROKEN DOWN 
VERSION OF YOUR NAME. 
DAVI 


DERIVED FROM: DAVID 
DELETING THE LETTERS THAT 
WERE THE SAME, LEAVING 1 
LETTER NOT PRINTED. 


PRESS ENTER? 


NOW IT’S YOUR TURN... 
2118000 


THESE NUMBERS CORRESPOND TO 

THE LETTERS IN THE NAME. 
(REMEMBER, THE ZEROS ARE FOR 
LETTERS THAT ARE ALREADY PRINTED) 
INPUT THE NAME? BABARA 
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VERY WELL DONE !! POINTS = 6 


NOW USING WHAT YOU LEARNED 
EARLIER, BREAK DOWN THE NAME 
AND ENTER THE OTHER VERSION? BAR 
THAT IS CORRECT... POINTS = 12 


NOW FOR ANOTHER... 
191144180 
THESE NUMBERS CORRESPOND TO 


THE LETTERS IN THE NAME. 
(REMEMBER, THE ZEROS ARE FOR 


LETTERS THAT ARE ALREADY PRINTED) 
INPUT THE NAME? SANDRA 


VERY WELL DONE !! POINTS = 18 

NOW USING WHAT YOU LEARNED 
EARLIER, BREAK DOWN THE NAME 

AND ENTER THE OTHER VERSION? SANDR 
THAT IS CORRECT... POINTS = 24 

NOW FOR ANOTHER... 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM PUTTING NAMES TOGETHER 

23 CLEAR1000 

30 CLS?DIM 1.%027),Р(25),41%(27),](25),А(25) 

40 PRINT TABOU)" PUTTING NAMES TOGETHER" 
30 PRINT 

60 INPUT"INSTRUCTIONS"';X$ 

70 IF X$="N" OR X$="NO" THEN 320 

80 PRINT"THE EASIEST WAY TO LEARN SOME-" 
70 PRINT"ONES NAME IS TO ASK FOR IT" 

100 PRINT'AND THEN WRITE IT DOWN." 

110 PRINT'ALL SO FAMILIAR AND EASY, RIGHT?" 
120 PRINT'WRONG !!" 
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130 PRINT'THIS ISN’T GOING TO BE A RUN-" 

140 PRINT"OF-THE-MILL NAME GATHERING PRO-" 
150 PRINT"GRAM. TO BEGIN WITH, YOU WILL" 

160 INPUT"INPUT YOUR FIRST NAME" ;jA$ 

170 CLS 

150 PRINT"USING YOUR NAME THE COMPUTER WILL" 
170 PRINT'SHONW YOU HOW THE PROGRAM WILL" 
200 PRINT'WORK AND WHAT MUST BE DONE TO" 
210 PRINT'EARN THE MOST POINTS." 

220 PRINT"IF YOU DON'T CARE FOR THE NAMES" 
230 PRINT"IN THE PROGRAM YOU CAN CHANGE THE" 
240 PRINT"DATA ELEMENTS AT LINES 5020 - 5040," 
260 PRINT'PRESS ENTER NOW TO SEE HOW" 

270 INPUT"THE PROGRAM WORK5";X$ 

280 JI=i IF A$z"" THEN 300 

290 CLSIGOTOSZ0 

300 PRINT"YOU DIDN’T INPUT YOUR NAME" 

310 INPUT"DO ІТ NOW";A$ 

320 FOR I-ITOZĊIREAD L$(OXNEXT:YzO 

230 FOR IZ1TO10;READ N&S(IMNEXT 

340 IF IIz-1 THEN 570 

370 T$-'THE' 

380 AS=NS(YNGOTO39S 

390 T$-"YOUR" 

395 IF II-0 AND KK=0 THEN 740 

400 PRINT T$j" NAME IS "АЯ", 

410 GOSUBZ000 

420 PRINT"SO THAT MEANS WE COULD USE" 

430 PRINT'THE NUMBERS" 

440 FOR I-1TOX 

450 PRINT PUD МЕХТ:РБІМТ 

460 PRINT"AS A CODE FOR "jT$}" NAME." 

470 PRINT 

480 GOSUB2100:GOSUBZ2310:IF KK=1 THEN 1100 

490 FOR I-1TOX:iPRINTPIDEENEXTIPRINT 

900 PRINT'TO MAKE THE GAME MORE DIFFICULT," 
510 PRINT"ALL LETTERS THAT OCCUR MORE THAN" 
512 PRINT'ONCE ARE REPLACED BY ZEROS." 

515 INPUT"PRESS ENTER" ;X$:/GOSUB2230 

520 PRINT"NOM, THE ZEROS ARE DELETED, AND THE" 
530 PRINT"NUMBERS FOR THE FIRST OCCURRENCES" 
940 PRINT"OF REPEATED LETTERS ARE REPLACED." 
945 PRINT"WE HAVE!" 

550 GOSUBZ400 
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360 FOR I=1TOZ:PRINT A(I)}{NEXT 

370 GOSUB2400 

380 PRINT 

490 PRINT"NOW WE HAVE THE" 

600 PRINT"BROKEN DOWN VERSION" 

610 PRINT"OF "jT$;" NAME," 

620 FOR I-1TOZ 

630 PRINT L$(AQOD" "3 

640 NEXTiPRINTILL-ABS(X-7) 

650 PRINT"DERIVED FROM! "jA$j" BY" 

660 PRINT"DELETING THE LETTERS THAT" 
670 PRINT'WERE THE SAME, LEAVING'iLL 

680 REM LL FOR LETTERS NOT PRINTED 

690 PRINT"LETTERS NOT PRINTED." 

700 REM USERS TURN 

710 PRINT 

720 INPUT"PRESS ENTER"}X$ 

730 IF Il-1 THEN П-О“Ү-ОІРБІМТ:ІСОТОЗ70 

740 YzY*1:A$-N$(Y) 

750 PRINT;IF Y>=3 THEN 770 

760 PRINT"NOW IT’S YOUR TURN..." 

770 GOSUB2000:GOSUB2100:GOSUBZ310 

773 IF KK=1 THEN 1100 

780 FOR I-1TOX 

790 PRINT ТНМЕХТІРКІМТ 

800 PRINT'THESE NUMBERS CORRESPOND TO' 
810 PRINT'THE LETTERS IN THE NAME." 

815 PRINT'(REMEMBER, THE ZEROS ARE FOR' 
816 PRINT'LETTERS THAT ARE ALREADY PRINTED)" 
820 INPUT'INPUT THE NAME";Q$ 

630 IF 0%-А% THEN 870 

840 PRINT"SORRY, THAT IS NOT THE NAME" 
850 PRINT"WE ARE LOOKING FOR, TRY AGAIN." 
S60 PRINT:GOTO7&0 

970 PRINT"VERY WELL DONE '' 'j 

880 GOSUBZ450 

590 PRINT'NOW USING WHAT YOU LEARNED" 
900 PRINT'EARLIER, BREAK DOWN THE NAME" 
910 INPUT'AND ENTER THE OTHER VERSION";Q$ 
920 GOSUBZ000;GOSUBZ100 

720 FOR I-1TOX 

940 D$2D$4L$((OIDNEXT 

950 IF Q$2D$ THEN 1000 

760 PI=PI-LEN(Q$) 
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970 PRINT"SORRY, THAT'S WFONG..."; 

250 GOSUBZ470 

990 GOTO1020 

1000 PRINT"THAT IS CORRECT ssa 

1010 GOSUB 2450 

1020 IF Ү-10 THEN 1300 

1030 PRINT 

1040 PRINT"NOW FOR ANOTHER..." 

1050 D$-"":GOTO740 

1100 REM NAME CONTAINS NO 2 LETTERS 

1110 REM THE SAME 

1120 PRINT 

1130 PRINT T$;" NAME DOES NOT CONTAIN" 

1140 PRINT"AT LEAST 2 LETTERS THAT ARE" 

1150 PRINT'THE SAME..." 

1140 PRINT"FOR AN EXAMPLE, THE COMPUTER" 

1170 PRINT"WILL GIVE YOU À NAME THAT DOES." 

1180 PRINT:II-O!T$-"THE":Y-71 

1190 INPUT"PRESS ENTER"}X$ 

1200 GOTO380 

1300 REM END 

1310 PRINT 

1320 PRINT"YOU HAVE DONE THE LAST OF THE" Y; 
"NAMES" 

1330 PRINT"IN THE DATA LIST. YOUR FINAL" 

1340 PRINT"SCORE IS";jPI;". WITH WHAT" 

1350 PRINT"YQU'VE LEARNED FROM THIS GAME" 

1360 PRINT"PROGRAM, YOU COULD SET UP" 

1370 PRINT"SOME KIND OF CODE GAME WITH YOUR" 

1380 PRINT"FRIENDS..." 

1370 PRINT 

1400 PRINT"TO PLAY AGAIN, JUST TYPE ЖОМ” 

1410 PRINT 

1420 PRINT"END OF GAME RUN..." 

1430 END 

2000 L=1;X=LEN(A$) 

2010 FOR I-1TOZ6 

2020 IF L$(D-MID$(A$,L,1) THEN 2050 

2030 NEXT 

2040 GOTOZOSO 

2050 PILI-EWS(L)I-MIDS(A$,L,1) 

2060 L=L+1 

2070 GOTO2030 

2080 IF Lċ-X THEN 2010 
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2090 RETURN 

2100 T=1;Q=2;V=1 

2110 IF I-X AND Q=X THEN RETURN 
2120 IF Q=I THEN 2160 

2130 IF W$(D=W$(0) THEN P(Q)=0;GOTOZ140 
2135 Ј(У)=Р(1) 

2140 IF Q<=X THEN 2160 

2150 GOTOZ2180 

2160 Q=Q+1 

2170 GOTO2110 

2180 IF І<=Х THEN 2200 

2190 RETURN 

2200 REM ADVANCE COUNTERS 

2210 J=I+1:Q=1;V=V+1 

2220 GOTO2110 

22:330 REM SHORTEN COUNT FOR LETTERS 
2240 1=Х!К=1 

2250 FOR I-1TOZ 

2260 IF J(IX>0 THEN 2280 

2270 1=1-і:МЕХТ:КЕТОВМ 

2280 A(K)=J(T) 

2290 K=K+1{Z=Z+1 

2300 GOTOZZ70 

2310 REM NO ZEROS ? 

2320 FOR I=1TOX 

2330 IF J(IX>0 THEN 2360 

2340 KK-OII-XiRETURN 

2350 NEXTIPRINTKKIRETURN 

2360 КК=1:СОТО2350 

2400 REM TIME LOOP 

2410 FOR TT=1TO1200;NEXT 

2420 RETURN 

2450 REM POINTS 

2460 РІ=РІ+Х 

2470 PRINT TAB(20) "POINTS =";PI 
2480 RETURN 

3000 DATA A,B,C,D,E,F,G,H,I,K,L 
3010 DATA M;N,O,P,G,R,S,T,U,V,W,X,Y,Z 
2020 DATA BARBARA,SANDRA,CHUCK,PAULA 
3030 DATA SHERRY,JIMMY,PATRICIA 
3040 DATA HANNAH,KERRIE,BLOSSOM 
3050 REM IF YOU CHANGE THE 10 NAMES 
3050 REM IN LINES 5020 - 5040 BE 
93070 REM SURE TO USE NAMES THAT 
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3080 REM CONTAIN AT LEAST 2 LETTERS 


32090 REM THAT ARE THE SAME FOR 
2100 REM PROPER PROGRAM FUNCTION 
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FINISH THE LETTERS 


A © 2. E 


Iz 
IX 
IN 
{oo 
lo 


Iz 
Ir 
H 
|D 


Can you spell better or faster than your computer? You’ll find out when you 
play this game! You must figure out each word quickly , because each time the 
computer goes through the alphabet, both you and your computer will lose a 
point. Think fast!!! 


Sample Run 


FINISH THE LETTERS (ALPHABET) 


SEE THE INSTRUCTIONS? YES 


THIS PROGRAM WILL TEST YOUR 
ABILITY TO FINISH A WORD THAT 

THE COMPUTER SELECTS AT RANDOM 
FROM A DATA LIST OF 25 WORDS. 

THE COMPUTER WILL PRINT THE 
ALPHABET, THEN REPLACE EACH LETTER 
WITH RANDOMLY SELECTED LETTERS. 
IF A LETTER SELECTED MATCHES A 
LETTER IN THE WORD, THAT LETTER 
WILL BE REPLACED IN A LINE BELOW 
THE ALPHABET LINE IN ITS CORRECT 
PLACE WITHIN THE WORD, ALONG WITH 
THE NUMBER OF LETTERS IN THE 
PRESELECTED WORD. 


PRESS ENTER? 
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START к 


Instructions 


|| 


DIM 
statements 


к 


Set 
variables 


а 


Read worcs 


L| 


Select 
random word 


| 


Number of letters 
per word 
bl 


mi 


Print 
random letters 


Ed 


No 


Continue 
letter print 


F$=G$(X) 


No 


Flowchart for Finish the Letters 


Yes 
Yes 


Computer 
select letters 


Kos 


Yes 


Computer 
gets word 


Print 
message 


No 


THE COMPUTER WILL CONTINUE TO 
SELECT LETTERS UNTIL IT COMPLETES 
THE CURRENT WORD, OR YOU PRESS THE 
SPACE BAR AND COMPLETE THE WORD. 
POINTS WILL BE DETERMINED AS FOLLOWS: 
WITH EACH PASS THROUGH THE 
ALPHABET, BOTH YOU AND THE COMPUTER 
WILL LOSE ONE POINT. IF YOU GUESS 

THE WORD BEFORE THE COMPUTER 
COMPLETES IT, PRESS THE SPACE BAR 

AND ENTER THE ENTIRE WORD. 


PRESS ENTER? 


IF YOU ARE CORRECT AND THERE WERE 
THREE OR FEWER LETTERS PRINTED 
BEFORE YOU PRESSED THE SPACE BAR 
YOU WILL RECEIVE TWO POINTS FOR 
EACH LETTER IN THAT WORD. 
OTHERWISE YOU'LL JUST RECEIVE ONE 


POINT FOR EACH LETTER THAT WASN’T 
PRINTED IN THE WORD. 


IF YOU ENTER AN INCORRECT WORD 
YOUR SCORE WILL BE REDUCED BY ONE 
POINT FOR EACH LETTER IN THE 
SELECTED WORD. 


PRESS ENTER? 


THE COMPUTER WILL RECEIVE ONE 
POINT FOR EACH LETTER IT PRINTS 
IN THE CURRENT WORD AND WILL 
RECEIVE DOUBLE POINTS IF IT 
COMPLETES A WORD BEFORE YOU DO. 
THE PROGRAM WILL END 

AFTER ALL 25 WORDS HAVE BEEN 
USED. 


PRESS ENTER TO BEGIN? 
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Program Listing 


10 REM PROGRAM TITLE: FINISH THE 
20 REM LETTERS (ALPHABET) 
25 CLEAR 500:CLS1Cz01A12691A22991:RANDOM 
26 GOSUB15001:GOSU B700 
30 DIM W(235),L$(26),14(26) 
32 DIM M(26),W$(26),G6$(26) 
39 FOR I21TOZS!W(DzINEXT 
40 FOR I-1TO2ċ 
20 J(I=ISREAD LS(IMNEXT 
55 FOR I-1TOZSIREAD ИФ(1):МЕХТ 
56 GOSU BtOGOTO70 
ac REM SELECT RANDOM WORD 
40 X=RND(Z5IF W(X)=0 THEN 40 
62 GE(X)=WS(X) 
54 REM NUMBER OF LETTERS PER WORD 
45 FOR 1=1TO LEN(G$(X )EM(I)-IiNEXT 
58 RETURN 
70 L=205{I=13M=1 
20 PRINTQGL,CHR$(95)j 
90 IF М<-25 THEN 110 
95 IF F=1 F20:1G0TO175 
100 СОТО120 
110 M=M+i*L=L+1iGOTOso 
170 L-2053il-1iM-i 
130 PRINT@L,L&(1)} 
че АФ-ІМКЕҮ% 
140 IF М<=25 THEN 160 
150 F=1:;GOTO70 
140 M=M+1$L=L+1iI=I+1 
165 FOR Т-1Т015%МЕХТ 
166 IF A$-"" THEN 500 
170 GOTO130 
175 IF Uzi U1=750:GOSUBS10 
130 L=705;M=1;RN=LEN(GS(X)) 
122 REM LETTER SELECTION 
135 YzRND(RNYIF M(Y)=0 THEN 185 
130 IZRND(26XIF М=26 AND H=1 THEN 390 
192 PRINT@A1+18,C}};PRINT@A2+12,CC} 
194 IF J(1)=0 THEN 190 
195 IF I-Y THEN 300 
200 PRINTQGL;L$(0D4£gFOR T=1TOISINEXT 
205 A$-INKEY$ 
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210 IF М<-25 THEN 230 

220 FOR T-1TOSOINEXT:GOTOZSO 

230 M-M*1liL-L*1 

2352 IF A$-"" THEN 500 

240 J(1)20 

245 IF Н<21 THEN 185 ELSE 190 

250 FOR I-1TO26 

260 J(D=LNEXT 

270 IF U=1 C=C-1:CC=CC-1 

280 GOTO7O 

300 IF U=0 THEN 320 

310 IF H=0 C=C+1 

319 IF U=1 THEN 365 

320 Е=278:Е1=1:0=1:Р=Е-і 

330 PRINTGE,CHR$(95)j 

340 IF EIEIRN THEN 360 

350 Uz1:1C2C*1:G608UBA425:GOTO365 

360 EZE*1!E1-E14*1:GOTO330 

365 AS$-INKEY$ 

370 PRINT(QP*Y,MID$(6$(X),Y,1) 

372 DZLEN(MID$(G$(X),Y,1)4D 

373 IF D=1 FG=1 

375 IF Q=RN THEN H=1:GOTO190 

380 М(Ү )=0:0=0+1 

385 IF A$-" " THEN 500 ELSE 200 

390 FOR I-1TO26 

400 IF М(1)<20 THEN I=M(I)}GOTO430 

410 NEXT 

420 GOTO440 

425 PRINT@P+123,"THE WORD HAS";RN;"LETTERS.":FG=0; 
RETURN 

430 PRINT@L,LS&(D); 

435 C=C+(RN#2)$PRINT@A1+18,C;3U1=1500:;GOSUB740 

440 И(Х)=0:С1=0:0=0 

445 FOR I-1TO25:IF И(0<>0 THEN450 ELSE NEXT:GOTO700 

450 GOSUB460;H=0;U=0 

460 FOR 1=1ТО26 

470 JID-ENEXT 

480 PRINT@P," 

490 GOTO70 

300 REM WORD INPUT 

505 IF Р=0 Р-274 

908 IF RN=0 THEN 130 

310 PRINTQ@P+55,; 
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520 INPUT"ENTER THE COMPLETE WORD"iF$ 
530 IF F$<>Gs(X) THEN 550 
540 GOTO4600 
200 PRINT@P+130,"SORRY !!!" 
960 FOR TTz1TO1000!NEXT 
570 PRINT@P+55,} 
575 PRINT" 
580 PRINTGPH4120, 
592 IF ТК-і JK20:GOTOA40 
583 REM DEDUCTION POINTS 
asa C12RN*C1:iCC-2CC-C1 
220 PRINT(3A2*12,CCi 
275 ЗОТО2ОО 
600 REM USERS POINTS 
510 PRINT@P+130,"CORRECT !!!" 
620 IF D<=3 THEN CC-(RN*2ZHCCiGOTO650 
&30 REM POINT PER LETTER REMAINING 
£40 CC=ABS(RN-D)+CC 
450 PRINT@AZ+12,CC; 
550 REM ANOTHER WORD 
670 JK=1 
680 GOTOS4Q 
700 REM END OF WORD LIST 
710 PRINT@P+170,} 
20 PRINT"END OF WORD LIST..." 
730 СОТО1200 
740 REM COMPUTER POINTS 
750 PRINT@P+55,} 
760 PRINT"COMPUTER HAS COMPLETED THE WORD." 
770 FOR TT-iITOU1NEXT 
780 PRINT@P+55,; 
770 PRINT" 
800 RETURN 
810 REM PRINT OUT FOR POINT LOSS 
820 PRINT(QP-*58,j 
&30 PRINT"ONE POINT DEDUCTION..." 
840 GOTO770 
900 REM TOTAL PRINTOUTS 
905 PRINTQ(A1-64), 
906 PRINT"PRESS ‘SPACE BAR’ WHEN YOU KNOW THE 
COMPLETE WORD." 
910 PRINT(3A1,"COMPUTER'S TOTAL =''С! 
920 PRINT@A2,"YOUR TOTAL ="3CC} 
930 RETURN 


1000 DATA A,B,C,D,E,F,G,H,I,J7,K 
1010 DATA L,M,N,O,P,G,R,S,T,U,V 
1020 DATA W,X,Y,Z 
1030 DATA TOGETHER,AUTOMATION,;,DIFFERENCE 
1040 DATA CONSIGNMENT,WHEREAS, AFTERWARDS 
1050 DATA OBNOXIQUS,PLANKTON,ALLOWABLE 
1060 DATA ELECTRIC,POSTURE, TORNADO 
1070 DATA MYTHOLOGY ,SIMULATION,LAMP 
1080 DATA FINANCE,STRIDE,WORLD, YOUNG 
1090 DATA NEGOTIATE,GERMINATE,ADVOCATE 
1100 DATA CANDLE,INFORMATIVE,SUGGEST 
1200 REM COMPARE TOTAL POINTS 
1210 FOR ТТ-1Т015ООМЕХТ 
1220 PRINT 
230 PRINT"TOTAL POINTS:" 
1240 PRINT"COMPUTER ="3C 
1250 PRINT" YOURS =";CC 
1740 IF C>CC THEN 1310 
1270 IF C<CC THEN 1340 
1280 PRINT" YOU HAVE TIED WITH THE" 
1290 PRINT"COMPUTER..." 
1300 GOTO1360;REM END 
1310 PRINT"THE COMPUTER HAS QUT-SMARTED YOU !"" 
1330 GOTO13460;REM END 
1340 PRINT"YOU HAVE SUCCESSFULLY BEATEN" 
1350 PRINT" YOUR COMPUTER IN SPELLING !!'" 
1340 PRINT 
1370 PRINT'END OF PROGRAM RUN..." 
1380 END 
1500 REM INSTRUCTIONS 
1510 PRINT TAB(üOX"FINISH THE LETTERS "j 
1520 PRINT'(ALPHABET' 
1530 PRINT 
1540 INPUT"SEE THE INSTRUCTIONS"jG$ 
1550 IF Q$="NO" CLS: RETURN 
1540 IF Q$="Y ES" THEN 1600 
1570 PRINT"DON'T STALL THE PROGRAM, JUST" 
1580 PRINT"ANSWER YES OR NO '''" 
1590 GOTO1530 
1500 PRINT"THIS PROGRAM WILL TEST YOUR" 
1510 PRINT"ABILITY TO FINISH A WORD THAT" 
1520 PRINT"THE COMPUTER SELECTS AT RANDOM" 
1430 PRINT"FROM THE DATA LIST OF 25 WORDS." 
1440 PRINT"THE COMPUTER WILL PRINT THE" 
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1450 PRINT"ALPHABET, THEN REPLACE EACH LETTER" 

1440 PRINT"WITH RANDOMLY SELECTED LETTERS." 

1470 PRINT"IF A LETTER SELECTED MATCHES A" 

1680 PRINT"LETTER IN THE WORD, THAT LETTER" 

1490 PRINT"WILL BE PLACED IN A LINE BELOW" 

1700 PRINT"THE ALPHABET LINE IN ITS CORRECT" 

1710 PRINT"PLACE WITHIN THE WORD, ALONG WITH" 

1720 PRINT"THE NUMBER OF LETTERS IN THE" 

1730 PRINT"PRESELECTED WORD." 

1750 INPUT"PRESS ENTER" ;XX 

1740 CLS 

1770 PRINT"THE COMPUTER WILL CONTINUE TO" 

1780 PRINT'SELECT LETTERS UNTIL IT COMPLETES" 

1790 PRINT"THE CURRENT WORD, OR YOU PRESS THE" 

1795 PRINT"SPACE BAR AND COMPLETE THE WORD." 

1800 PRINT"POINTS WILL BE DETERMINED AS 
FOLLOWS!" 

1810 PRINT"WITH EACH PASS THROUGH THE" 

1820 PRINT'ALPHABET, BOTH YOU AND THE COMPUTER" 

1230 PRINT"WILL LOSE ONE POINT. IF YOU GUESS" 

1840 PRINT"THE WORD BEFORE THE COMPUTER" 

1850 PRINT"COMPLETES IT, PRESS THE SPACE BAR" 

1840 PRINT'AND ENTER THE ENTIRE WORD." 

1865 INPUT"PRESS ENTER" ;XX:CLS 

1870 PRINT"IF YOU ARE CORRECT AND THERE WERE" 

1830 PRINT"THREE OR FEWER LETTERS PRINTED" 

1870 PRINT"BEFORE YOU PRESSED THE SPACE BAR" 

1900 PRINT"YOU WILL RECEIVE TWO POINTS FOR" 

1910 PRINT"EACH LETTER IN THAT WORD." 

1920 PRINT"OTHERWISE YOU'LL JUST RECEIVE ONE" 

1930 PRINT"POINT FOR EACH LETTER THAT WASN'T" 

1940 PRINT"PRINTED IN THE WORD." 

1950 PRINT"IF YOU ENTER AN INCORRECT WORD" 

1940 PRINT"YOU SCORE WILL BE REDUCED BY ONE" 

1970 PRINT"POINT FOR EACH LETTER IN THE" 

1980 PRINT"SELECTED WORD." 

1985 INPUT"PRESS ENTER" ;XX;CLS 

1990 PRINT"THE COMPUTER WILL RECEIVE ONE" 

2000 PRINT"POINT FOR EACH LETTER IT PRINTS" 

2010 PRINT"IN THE CURRENT WORD AND WILL" 

2020 PRINT"RECEIVE DOUBLE POINTS IF IT" 

2030 PRINT"COMPLETES A WORD BEFORE YOU DO." 

2040 PRINT"THE PROGRAM WILL END" 

2050 PRINT" AFTER ALL 25 WORDS" 

2060 PRINT"HAVE BEEN USED," 
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2065 PRINT 
2080 INPUT"PRESS ENTER TO БЕСІМ ХХ 


2070 CLS 
2100 RETURN 


91 


CALENDAR 


JANUARY 1982 


10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 


Do you want your youngsters to read a calendar, but they don't seem to have 
the patience or time? Turn a chore into a game with the help of this program. 
You can use it either as an ordinary calendar or as a teaching tool. Your child 
can learn everything from the months to the days of the week (including 
dates). He or she can also get some practice in doing addition. 


Sample Run 


si: CALENDAR :::: 


DO YOU NEED THE INSTRUCTIONS? YES 


EVERYONE USES CALENDARS, RIGHT? 
WELL IF YOU NEVER HAVE, NOW IS YOUR 
CHANCE TO START. 

IF YOU WISH, YOUR YOUNGER 

CHILDREN CAN SHARPEN THEIR MEMORY 
OF THE DAYS OF THE WEEK AND OF 
ADDITION. PRESS ENTER AND FOLLOW 
ALL THE COMPUTER'S INSTRUCTIONS? 


USE AS AN ORDINARY CALENDAR? YES 
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Flowchart for Calendar 


START 


Yes 
Output 
instructions ank 
and date 
DIM 
statements 
Q1=Q1+1 


Yes 


Yes 
Q1=Q1+1 
message 


STOP 


January 1982 
Sun Mon Tue Wed Thur Fri 


BOOOOOO 
CONNIE 


Press anv kev to stop calendar advance 


Program Listing 


10 REM PROGRAM TITLE: CALENDAR 

20 CLS!B-2 

30 PRINT TAB((13)" 1555 CALENDAR ин" 

40 PRINT 

30 INPUT"DO YOU NEED THE INSTRUCTIONS";I$ 

60 IF Is-'NO' OR IS-"N" THEN 170 

70 PRINT 

80 PRINT"EVERYONE USES CALENDARS, RIGHT?" 

90 PRINT"WELL IF YOU NEVER HAVE, NOW 15" 

100 PRINT"YOUR CHANCE TO START." 

110 PRINT"IF YOU WISH, YOUR YOUNGER" 

120 PRINT"CHILDREN CAN SHARPEN THEIR MEMORY," 

120 PRINT"OF THE DAYS OF THE WEEK AND OF 
ADDITION," 

140 PRINT'PRESS ENTER AND FOLLOW ALL THE" 

150 PRINT"COMPUTER’S INSTRUCTIONS"; 

160 INPUT X$ 

170 DIM M$(12),D(32) 

150 DIM D$(12),X (32),L$(32) 

220 CLS 

230 REM THIS CALENDAR PROGRAM 15 

240 REM SET UP TO START IN 

250 REM THE YEAR 1982 

260 INPUT"USE AS AN ORDINARY CALENDAR" ;T$ 

270 IF T$2"Y" OR T$="YES" THEN WE=1 
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230 REM READ DATA 
290 V=1ICLSSREM DAYS OF WEEK 
300 FOR I-1TO7 

310 READ D$(IXNEXT 

320 REM MONTHS 

330 FOR I=1TO12 

340 READ M&(IMNEXTIYY=1982 
350 REM NUMBER OF DAYS PER MONTH 
260 FOR 1-1Т012 

370 READ БОММЕХТ 

380 І=1:7=1:С=6:6050В900 

390 PRINT@20,M4(I)}{PRINT@Q40,YY} 
395 IF I>=Z AND MA=1 THEN 560 
400 T=70 

410 PRINTGT,DS(J); 

420 Т=Т+8:7=7+1 

430 IF 7<-7 GOTO410 

450 Y=7 

460 FOR X=10TO115 

470 SET(X,YXNEXT 

480 V-V46 

490 IF ¥<>49 THEN 460 

500 X210 

510 FOR Ү-7Т043 

520 SETOGYXNEXT 

530 X=X+15 

540 IF X=130 THEN 560 

550 GOTOS10 

560 IF В<=0 B=7 

570 M-BIMA-1:BB-B:GOTO800 
575 FOR D=1TOD() 

580 PRINT@A,D}!X(D)=A 

585 L#(D)=Ds(CA=A+7.4:B=B-1iC=C+1 
584 IF Б<-0 В=7 

590 IF D=M THEN 610 

600 NEXT!GOTO430 

510 А=А+76:М=М+7:С=1:В=7 

520 GOTO&00 

630 REM RECYCLE 

540 GOSUB1110:GOSUB1000 

650 IF I-12 THEN 700 

660 І=1+1:7=1 

&70 GOTO390 

700 REM YEAR ADVANCE 
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710 ҮҮ=ҮҮ+1 

720 GOTO1940 

730 M=B 

740 GOTO380 

800 REM PRINT AREAS 

805 IF M-1 A-2244 

810 IF М=2 A=238 

815 IF M23 A=230 

820 IF M-4 A-2222 

825 IF М-5 А=215 

630 IF M=6 А=208 

835 IF M=7 А=200 

840 AA=A:GOTOS75 

900 PRINT(2272,"PRESS ANY KEY ТО" 
910 PRINT"STOP CALENDAR ADVANCE"; 
920 RETURN 

9:30 PRINT(2280,; 

940 RETURN 

950 PRINT(2?80,j 

960 PRINT" 

962 PRINT(2772," Р; 

945 IF TT=1 TT=0!RETURN 

970 FOR Uz1TO1500:NEXT 

350 RETURN 

1000 REM CLEAR CURRENT CALENDAR 
1010 А=АА:М=ВВ 

1020 FOR D=1TOD(T) 

1030 PRINTQGA," ":А=А+7,4 

1040 IF DzM THEN 1060 

1050 NEXT:GOTO1080 

1040 AZA*751M-M*7 

1070 GOTO1050 

1020 PRINTQ20;" 

1090 PRINT(240," " 

1095 IF D(Ż)-79 PRINTGA," "; 

1100 RETURN 

1110 REM KEY CLOSURE 

1170 FOR U=i T0250 

1130 А$=ІМКЕҮ$ 

1140 IF A$="" THEN 1160 

1150 IF МЕ<>21 GOTO1170 ELSE 1700 
1160 NEXTIRETURN 

1170 GZRND(D(D-1XIF Q<=0 THEN 1170 
1180 PRINT@X(Q)," "j 
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1190 J(V)EQ!TT21:GOSUB?50 

1200 GOSUB930iX-201X X20 

1210 PRINT"THE MISSING DATE ?"j 
1220 X$-INKEYS;IF X$="" THEN 1220 
1230 X=VAL(X$)+XX 

1240 IF K=1 К-О%СОТО 1270 

1250 IF 0<=9 THEN 1270 

1260 XX=X#10;K=1;GOTO1220 

1270 REM CORRECT 7 

1280 GOSUB930 

1290 IF X=Q THEN 01201*41:GOTO1320 
1300 PRINT"YOU ARE INCORRECT !!! "3 
1310 GOTO1330 

1320 PRINT'THAT IS CORRECT !!! "3 
1330 IF MJ=1 MJ=0:GOTO1430 

1335 PRINT@X(Q),Q; 

1340 GOSUB970:GOSUB950 

1350 GOTO1800 

1355 IF V=3 THEN 1500 ELSE IF V=4 THEN 1500 
1360 IF У<=5 THEN 1170 

1370 GOSUB970;CLS 

1380 PRINT"OUT OF";V+3;"YOU CORRECTLY" 
1390 PRINT" ANSWERED"}:Q4=Q1+0Q2+Q3 
1395 PRINT Ой)" 

1400 GOTOZ100 

1410 CL8:012010220:0320:04-01Vz 11M A-O 
1420 СОТО650 

1430 GOSUB970 

1440 VZV4*1:GOTO1355 

1500 REM SUM OF 2 

1510 X1=J(V-2)}+J(V-1XŅXMJ=1 

1520 GOSUBYS0;VV=V-1 

1330 РБІМТ(8972,; 

1540 PRINT"ENTER THE SUM OF THE DATES"; 
1545 PRINT VV-1;"AND";VV3" ?"j 

1550 X$-INKEVSIF X$="" THEN 1550 
1360 XZ=VAL(X$)+X3:X3=0 

1570 IF K=1 K=0;GOTO 1600 

1580 IF X1<=9 THEN 1600 

1590 X3=XZ#10;K=1;GOTO1550 

1600 TT=1;GOSUB950 

1605 GOSUBY30 

1610 IF Х2<>Х1 THEN 1300 

1620 02=02+1:60ТО1320 
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1700 GOSUBYS0 

1710 GOSUB?30 

1720 PRINT"PRESS ANY KEY TO CONTINUE ?"j 
1730 X$-INKEY$ 

1740 IF X$="" THEN 1730 

1750 GOSUB?00 

1750 RETURN 

1500 REM WHAT DAY OF WEEK 

1810 F$z""1TT21122-1:GOSU B?50 

1320 PRINT(@975,; 

1830 PRINT'THAT DATE OCCURS ON WHICH DAY 7"} 
1840 I$=INKEY$ 

1350 IF I$2"" THEN 1840 

1360 F$-F$-I$ 

1870 PRINT(31007,MID$(F$,1,22)j 

1880 IF ZZ«2LEN(L$(Q) THEN 1900 

1870 TT21:GOSUB9?50:)GOTO1910 

1900 2Z2=ZZ+1:;GOTO1840 

1910 GOSUB930:MJ=1 

1920 IF F$<>L$(Q) THEN 1300 

1930 Q3=Q3+1:GOTO13Z0 

1940 REM LEAP YEAR ? 

1950 IF YY/4=INT(YY/4) THEN 1970 

1960 D(2Z)=28:GOTO1980 

1970 0(2)=29 

1960 GOTO730 

2000 REM DATA LINES 

2020 DATA JANUARY ,FEBRUARY,MARCH,APRIL 
2030 DATA MAY,JUNE,J ULY, AUGUST 

2040 DATA SEPTEMBER,OCTOBER,NOVEMBER 
2050 DATA DECEMBER 

2060 DATA 31,28,31,30,31,30 

2070 DATA 31,31,30,31,30,31 

2100 REM CONT — END 

2110 PRINT"YOU HAVE";Q1; 

2120 PRINT"DATES CORRECT." 

2130 PRINT"YOU ADDED"jQ2;"DATES CORRECTLY." 
2150 PRINT"YOU NAMED"jQ3;"DAYS OF THE" 
2160 PRINT"WEEK CORRECTLY." 

2165 IF 04-10 PRINT"A PERFECT SCORE !!!" 
2170 PRINT 

2180 PRINT"PRESS ENTER TO CONTINUE." 
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2190 PRINT'PRESS BREAK TO STOP." 
2200 INPUT X 


2210 GOTO1410 
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Time- and Mind-Challenging Games 


CLOCKWORK 


No points 


So you think you have mastered every game on the market? Wait ’til you try 
this one! You'll be trying to beat a clock (60 seconds and the computer takes 
the first shot) to get enough points to beat your opponent. When you think 
you're all set, the ceiling will drop and the targets will move! 


Sample Run 


CLOCKWORK 


INSTRUCTIONS (Y/N)? Y. 


THIS PROGRAM REQUIRES 

TWO PLAYERS. YOU AND 

ONE OTHER PLAYER WILL TRY 

TO BEAT THE CLOCK TO GAIN AS 
MANY POINTS AS POSSIBLE. BY 
HITTING VARIOUS TARGETS. EACH 
OF YOU WILL HAVE 2 TURNS (ALTER- 
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START 


(bi 


Ves 


List 
instructions 
Set 
variables 
Set 
hit area 


Input 2 
players names 


Select 
first player 


Print play 
field 


Start 
clock 


Print point 
areas 


Get key 
closure 


Advance 
for player 
No 
Test for 
point advance 


qm Ves STOP 


Flowchart for Clockwork 
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NATING). YOU WILL EACH BE ALLOWED 
ONE MINUTE FOR EACH TURN. 

AS THE GRAPHICS ARE SET UP YOU 
WILL NOTICE A CLOCK IN THE UPPER 
LEFT-HAND CORNER. TO THE RIGHT 
WILL BE YOUR SCORE. 


PRESS ENTER? 


THE CURRENT PLAYER’S NAME WILL 
BE PRINTED IN THE LOWER RIGHT- 
HAND CORNER. 
AFTER ALL GRAPHICS ARE SET UP 
THE COMPUTER WILL PRINT ‘PRESS 
ANY KEY TO START’. AFTER 
YOU PRESS A KEY, THE COMPUTER 
WILL FIRE A PROJECTILE. IT WILL 
GO UP, BOUNCE OFF THE CEILING, 
AND THEN HIT ONE OF THREE POINT 
AREAS (500, 200, or 50) AT THIS 
POINT THE CEILING WILL BE LOWERED 
AND THE THREE POINT AREAS WILL 
BE MOVED TO THE LEFT. 


PRESS ENTER? 


NOW TRY TO AIM YOUR SHOT. 

PRESS THE UP ARROW KEY 

TO MOVE THE LIGHTED BLOCK UP 

(TO MAKE IT FALL SHORTER), OR PRESS 
THE '/ KEY TO MOVE IT TO THE 
RIGHT (TO MAKE IT GO 

FARTHER). TO FIRE JUST PRESS 

THE SPACE BAR AT ANY TIME. 

YOU WILL RECEIVE THE NUMBER OF 
POINTS INDICATED BY THE NUMERAL 
YOU HIT (IF ANY). EACH OF YOU 

WILL HAVE A CHANCE TO HIT THE 
NUMERALS. THEN THE GRAPHICS WILL 


PRESS ENTER? 


BE RESET, THIS TIME USING ‘ASTERISKS’ 
AS TARGETS. YOU WILL REPEAT THE 
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PROCEDURE. EACH DIRECT HIT ON AN 
ASTERISK WILL COUNT 1000 POINTS. 
AFTER BOTH OF YOU PLAY A ROUND, 
THE COMPUTER WILL PRINT THE 
WINNER... 


BEGIN NOW...PRESS ENTER? 


INPUT THE FIRST NAMES OF 
BOTH PLAYERS? CANDY 


??APPLE 
** Clock ** * Points * 
52 Seconds left 200 
a 


Player 
Karen 


Program Listing 


10 REM PROGRAM TITLE: CLOCKWORK 
15 GOSUB2500 

20 CLSIQ-LAIX Xz6:JK71 

30 GOSUBAO:GOTO200 

40 А=927 

30 FOR І-1ТОЗ 

80 A(D=AtIF I>=2 THEN 100 

70 А(І+3)=А-427 

80 А(Т+4)=А-727 

90 А(Т+5)=А-&77 

100 AZA*SINEXT 

110 REM HIT AREA 

120 Аі=64:А2=70:А3=74:А4=20 

130 A5-831A 6-88 

140 RETURN 

200 REM PLAYERS - POINTS - TURN 
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210 IF JKS-2 THEN 330 

220 PRINT'INPUT THE FIRST NAMES OF" 
230 INPUT'BOTH PLAVERS'3X$,T$ 
239 IF X$="" OR Y$="" THEN 220 
240 IF ASC(X$)>=ASC(Y$) THEN 270 
250 REM GOES FIRST 

260 RN=1 

270 CLS 

250 GOSUB1200 

290 GOTO330 

300 REM PLAYING FIELD 

310 PRINTQO," ## CLOCK ++"; 
320 PRINT(235,"** POINTS ++; 
322 PRINT@Q+5,"SECONDS LEFT"; 
3229 PRINT@?44,"## PLAYER ++"; 
326 RETURN 

330 FOR X20TOS91:SET(X,X X) 

340 SET(X,46);SET(X ,47)}NEXT 

330 FOR Y=47TOXXSTEP-i 

360 SET(91,YSET(92,Y) 

370 SET(93,YWNEXT 

375 IF F=1 Y24S9:RETURN 

380 REM START CLOCK 

385 Х=0:Ү=49 

320 GOSUB300;GOSUB1100 

375 GOSUB700 

400 IF Y<=XX+1 THEN 455 

405 GOTO900 

410 RESET(X,Y)RESET(X+1,Y) 

420 X=X+13Y=Y-1 

430 SET(X, Y /SET(OX*1, Y) 

440 FOR T-1TOSSNEXT 

445 IF F=1 THEN C=C-.11 

450 IF CC<=0 THEN 1800 ELSE 400 
455 CC=INT(C) 

460 RESET(X,YYRESET(X*1,Y) 

465 PRINTQ@Q,CC; 

470 Ү=Ү+і:Х=Х+1 

480 SET(X,;YNSET(X+1,Y) 

485 IF F=1 THEN C=C-,.11 

490 IF Ү>-45 GOSUB1500:GOTO510 
495 IF С<=0 THEN 1800 

300 GOTO455 

310 GOSUB300 
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515 GOSUB1100 

ILO Х=0:Ү=45 

229 SET(X, YSET(X+4+1,Y) 

930 A$-INKETSIF C<=0 THEN 1800 
өзе IF Есі THEN C=C-,0S:PRINTQ@Q,CC} 
40 CC=INT(C)}REM IF A$="" THEN 530 
550 IF A$ZCHR$(91) THEN 570 

555 IF A$ZCHR$(47) THEN H=1:;GOTOS70 
260 IF A$z" " THEN U=1iGOTO400 

565 GOTOS30 

270 RESET(X,YMRESET(X+1,Y) 

571 IF Y<=XX THEN 640 

975 IF Hz1 H20:0GOTO600 

S80 XzX!YzY-1:GOTOS25 

£00 REM MOVE RIGHT 

610 IF Хо-25 THEN 640 

620 XzX*11Y7Y 

630 GOTOS25 

640 РБІМТ(8880,%% LIMIT жн 

650 FOR Tz1TO775!1NEXT 

650 PRINT(2250," "1 

670 GOTOS25 

700 REM START 

710 PRINT(2256,j 

720 PRINT"PRESS ANY KEY TO START"; 
730 W$-INKEY $ 

740 IF W$z"" THEN 730 

750 PRINT(2256,j 

760 PRINT" 

770 RETURN 

900 REM CLOCK COUNT 

710 IF Е=1 THEN 925 

920 C=41;F=1 

725 CC=INT(C) 

930 PRINTQQ,CC} 

740 IF C<=0 THEN 1800 

370 GOTO410 

980 REM VARIABLE С & CC ARE FOR CLOCK 
1100 REM PRINT POINT AREAS 

1110 FOR I-1TO3 

1115 IF НК=1 THEN 1150 

1120 PRINT@A(T),A(I+3); 

1130 NEXT 

1140 RETURN 
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1150 POKE Аі,АА 

1150 POKE А?,АА 

1170 РОКЕ АЗ,АА 

1180 GOTO1140 

1200 REM PLAYER? 

1710 IF RN=1 THEN 1250 

1240 PRINTG1011,X£HGOTO1240 

1250 PRINTG1O011,7 $; 

1240 RETURN 

1500 REM POINTS? 

1510 IF CC221 THEN 1530 

1520 RETURN 

1550 IF POINT(X,Y41) THEN 1545 
1540 RESET(X,YXRESET((X41,YY RETURN 
1545 REM TO HIGHER POINT 

1546 IF HK=1 THEN 7100 

1550 IF X>=A5 AND Х<-А6 THEN 1590 
1540 IF X>=A3 AND X<=A4 THEN 1595 
1570 IF X>=Al AND Х<=А2 THEN 1600 
1550 GOTO1540 

1570 P=P+A(6GOTO14605 

1535 PZP*A(8GOTO1505 

1600 P=P+A(4) 

1605 IF Аі<=4 RESET(X,YMRESET(X+1,Y#GOTO1785 
1610 А5-АЗ?Авб-А4-1!АЗ-А1:Ай-А2 
1615 Аі=А1-10:А2=А2-10 

1620 PRINTG107;F; 

1525 RESET(X,Y)RESET(X+1,Y) 

1530 REM LOWER CEILING 

1640 FOR X=0TO90 

1650 RESET(X,XXXYNEXT 

1660 XX=XX+3 

1570 IF ХХ>-24 ХХ=24 

1680 FOR X=0TO?0 

1690 SET(X,XXMNEXT 

1700 FOR YzXX-1TOXX-3STEF-1 

1710 RESET(?1,Y YRESET(92,Y) 

1720 RESET(?3,YXYNEXT 

1730 GOSUBS3SQIIF HK=1 THEN 1780 
1740 FOR I=1TO3 

1745 IF MX=1 PRINT@A(I)," "; 
1750 РЕТЧТ@А@)," "NEXT 

1755 IF MX=1 MX-0iRETURN 

1760 FOR I-1TO3 
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1770 A(D-A(D-5INEXT 
1780 GOSUBI 100:RETURN 
1785 REM RESET POINT AREAS (BEGINNING) 
1790 MX=1!GOSUB1740;GOSUB40:GOSUBI 100 
1795 RETURN 
1800 REM TIME EXPIRED 
1810 T-1 
1820 PRINTQQ,; 
1830 PRINT"#* TIME EXPIRED ғ 
1840 FOR L=1TO200:NEXT 
1850 PRINTQ@Q,} 
1860 PRINT" ч 
1870 FOR L=1TO100:NEXT 
1880 IF Т<=5 THEN T=T+1!GOTO1320 
1890 REM WHOSE TURN? 
1900 REM POINTS 
1910 JK=JK+1 
1920 IF RN=1 P1-P1*PIRN-0:GOTO1930 
1925 RN=1!P2=P2+P 
1930 IF JK-5 THEN 2300 
1935 IF JK-3 THEN 2000 
1938 IF HK=1 THEN 2000 
1940 CLS!GOSUB1200 
1945 0=64:ХХ=6Р=0:Р=0 
1950 GOTO30 
2000 REM HIGHER POINT ROUNDS 
2010 НК=1:АА=42 
2020 A1-162971A2-16292 
2030 А3=16287 
2040 А4=0:А5=0:А4=0 

| 2050 REM PLAY 
2055 IF ВМ=1 BM=0:GOTO2200 
2060 CLSIGOSUBI1200 
2070 0=64:ХХ=6РҒ=0:Р=0 
2080 GOTOZ90 
2100 REM RECEIVE POINTS? 
2105 RESET(X, YXRESET(X*1, Y) 
2110 IF PEEK(A1)<>AA THEN 2150 
2120 IF PEEK(A2X2AA THEN 2150 
2130 IF PEEK(A3)OAA THEN 2150 
2140 GOTO1520tREM NO POINTS 
2150 P=P+1000 
2150 POKE А1,32:РОКЕ А2,32 
2170 POKE A3,32 
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2180 IF A3<=INT(AA#387.2) THEN BM=1 

2185 IF BM-1 THEN 2020 

2190 A12A21A2-A3!A3-A3-5 

2200 REM CONT PLAY 

2210 GOTO1620 

2300 REM END / FINAL SCORE 

2310 FOR ТТ-1Т01500МЕХТ 

2320 CLS!IPRINTCHR$(23) 

2330 IF P1-P2 THEN 2390 

2340 IF P1»P2 THEN X$-Y$:1P2-P1 

2350 PRINT X$j" IS THE WINNER." 

2360 PRINT"HAVING A TOTAL SCORE" 

2370 PRINT"OF"jP2j"POINTS." 

2380 GOTO2430 

2390 PRINT"YOU HAVE FINISHED" 

2400 PRINT"WITH À TIE SCORE." 

2410 PRINT Y$;"HAS";P1 

2420 PRINT X$;"HAS";P2Z 

2430 PRINT 

2440 PRINT"END OF GAME..." 

2450 END 

2900 REM INSTRUCTIONS 

2510 CLS 

23220 PRINT TAB(I9);"C LOC K WORK" 

2530 PRINT 

2940 INPUT"INSTRUCTIONS (Y/N)";T$ 

2550 IF T$="N" RETURN 

2950 PRINT"THIS PROGRAM REQUIRES" 

2970 PRINT"TWO PLAYERS." 

2580 PRINT" YOU AND ONE OTHER PLAYER WILL TRY" 
2590 PRINT"TO BEAT THE CLOCK TO GAIN AS" 
2400 PRINT"MANY POINTS AS POSSIBLE BY" 

2610 PRINT'HITTING VARIOUS TARGETS, EACH" 
2620 PRINT"OF YOU WILL HAVE 2 TURNS (ALTER-" 
2630 PRINT"NATING), YOU WILL EACH БЕ ALLOWED" 
2640 PRINT"ONE MINUTE FOR EACH TURN." 

2650 PRINT"AS THE GRAPHICS ARE SET UP, YOU" 
2660 PRINT"WILL NOTICE A CLOCK IN THE UPPER" 
2670 PRINT'LEFT-HAND CORNER. TO THE RIGHT" 
2680 PRINT"WILL BE YOUR SCORE." 

2670 PRINT 

2700 INPUT"PRESS ENTER" ХХ 

2710 CLS 

2720 PRINT'THE CURRENT PLAYER’S NAME WILL" 
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2730 PRINT"BE PRINTED IN THE LOWER RIGHT-" 

2740 PRINT'HAND CORNER." 

2730 PRINT" AFTER ALL GRAPHICS ARE SET UP" 

2760 PRINT'THE COMPUTER WILL PRINT 'PRESS" 

2770 PRINT"ANY KEY TO START’, AFTER" 

2730 PRINT"YOU PRESS A KEY, THE COMPUTER" 

2790 PRINT"WILL FIRE А PROJECTILE, IT WILL" 

2800 PRINT"GO UP, BOUNCE OFF THE CEILING," 

ote PRINT"AND THEN HIT ONE OF THE THREE POINT" 

20 PRINT" AREAS (500,200 OR 50), AT THIS" 

PRINT"TIME THE CEILING WILL BE LOWERED" 

0 PRINT" AND THE THREE POINT AREAS WILL" 

on PRINT"BE MOVED TO THE LEFT." 

© PRINT 

70 INPUT'PRESS ЕМТЕН ХХ 

О CLS 

70 PRINT"NOW, TRY TO AIM YOUR SHOT." 

0 PRINT'PRESS THE UP ARROW KEY" 

20 PRINT'TO MOVE THE LIGHTED BLOCK UP" 

30 PRINT'(TO MAKE IT FALL SHORTER) OR PRESS" 

О PRINT"THE '/' KEY TO MOVE IT TO THE" 

0 PRINT"RIGHT (TO MAKE IT GO" 

0 PRINT"FARTHER). TO FIRE JUST" 

0 PRINT"PRESS THE SPACE BAR AT ANY TIME," 

о PRINT"YOU WILL RECEIVE THE NUMBER OF" 

Оо PRINT'POINTS INDICATED BY THE NUMERAL YOU 
HIT" 

3000 PRINT'(IF ANY). EACH OF YOU WILL HAVE" 

3010 PRINT"A CHANCE TO HIT THE NUMERALS," 

3015 PRINT:IINPUT"PRESS ENTER";jXXiCLS 

3017 PRINT"THEN THE GRAPHICS WILL BE" 

3020 PRINT"RESET, THIS TIME USING ‘ASTERISKS’ 

3020 PRINT'AS TARGETS. YOU WILL REPEAT THE" 

3040 PRINT"PROCEDURE, EACH DIRECT HIT ON AN" 

3050 PRINT" ASTERISK WILL COUNT 1000 POINTS." 

2040 PRINT"AFTER BOTH OF YOU PLAY A ROUND" 

3070 PRINT'THE COMPUTER WILL PRINT THE" 

3050 PRINT"WINNER.." 

2070 PRINT 

2100 INPUT'BEGIN NOW PRESS ENTER";XX 

3110 RETURN 
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BLACKOUT 


2581154 


~ 


You must have a fast, sharp mind to play this game. You may choose from 
three difficulty levels, but even on level one you must be able to think fast. 
Oh yes, one other thing before you start—is your memory in good working 
order too??? 


Sample Run 


BLACKOUT 
INSTRUCTIONS REQUIRED? YES. 


THIS PROGRAM WILL TEST AND SCORE 
YOUR ABILITY TO SOLVE ADDITION 
PROBLEMS & REMEMBER COLORS. 
LEVELS SELECTIONS ARE 1, 2, & 3. 
THE ADDITION PROBLEMS WILL BE 


PRINTED IN ROWS (LEFT TO RIGHT). 
EACH ROW WILL CONTAIN 4 NUMERALS 
TO BE ADDED TOGETHER. 

TO THE RIGHT OF EACH NUMBER 

YOU WILL SEE ONE OF 2 COLORS: 
BLACK OR WHITE. 


ENTER? 


TO THE FAR RIGHT OF YOUR VIDEO 
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START 


Yes 
List 
instructions 


DIM 
statements 


Level 
selection 


Yes 
No 
Set 
variables 
Set 
strings 


Flowchart for Blackout 


Print number 
strings 


Print random 
answers 


Alternate 
message 


Input 
dominating 
color 


Yes 
Concluding 
message 


STOP 
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WILL BE NUMBERS, THESE NUMBERS 

ARE THE TOTALS TO THE ROWS, BUT 

EACH NUMBER IS NOT NECESSARILY 

THE TOTAL FOR THE ROW IT IS NEXT TO. 
THE TOTALS ARE RANDOMLY ARRANGED. 
DEPENDING ON THE LEVEL YOU SELECT 
YOU WILL BE GIVEN A CERTAIN TIME LIMIT 
TO ADD ALL 4 NUMBERS IN A ROW. 

THE TOTAL BESIDE THE ROW WILL BE 
BLACKED OUT. IF IT WAS THE 


ENTER? 


CORRECT ANSWER, PRESS 

THE SPACE-BAR. THE COMPUTER 

WILL BLACKOUT THE 4 COLORS 

AND SEE IF IT WAS INDEED THE CORRECT TOTAL 
IF THE TOTAL WAS CORRECT, YOU WILL 

BE ASKED TO INPUT THE DOMINATING 

COLOR IN THAT ROW (BLACK/WHITE OR 


EQUAL — 2 BLACK + 2 WHITE). IF 
YOU ARE CORRECT THAT ROW WILL 
BE OMITTED; IF INCORRECT, THE 
COLORS WILL BE REPRINTED IN THAT 
ROW AND PLAY WILL RESUME 


ENTER? 


YOU MUST REMEMBER TWO VITAL 
RULES: 

1) ONLY PRESS THE SPACE BAR 

AFTER THE TOTAL HAS BEEN BLACKED 
OUT (ASSUMING IT IS THE RIGHT TOTAL). 
IF THE TOTAL DOES NOT MATCH THE 
ADDED NUMBERS IN THAT ROW, DO NOTHING! 
2) REMEMBER THAT YOU WILL HAVE 

A TIME LIMIT WITHIN WHICH TO ADD 
THE NUMERALS, PRESS THE 

SPACE BAR AND GUESS THE COLOR. 
(THIS PROGRAM ALSO USES THE 

INKEY$ FUNCTION.) 
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ENTER? 


IF YOU START TO GUESS BY 

PRESSING THE SPACE BAR FOR 

EVERY ROW, YOU WILL ONLY DEFEAT 
THE PURPOSE OF THE PROGRAM, 
RECEIVE A WARNING FROM THE 
COMPUTER, AND HAVE TO START OVER!! 
THE PROGRAM ENDS WHEN YOU HAVE 
ENTERED CORRECT TOTALS AND COLORS 
FOR ALL 11 ROWS. 

NOW YOU CAN FINALLY PRESS ENTER 
TO BEGIN? 


LEVEL SELECT (1, 2, OR 3)? 2 


22 WHITE 
2 BLACK 
26 WHITE 
12 BLACK 
4 WHITE 
2 WHITE 
13 WHITE 
27 WHITE 
12 BLACK 
12 WHITE 
14 BLACK 


17 BLACK 
6 BLACK 
27 WHITE 
7 WHITE 
27 BLACK 
5 WHITE 
27 BLACK 
27 WHITE 
15 BLACK 
30 BLACK 
7 WHITE 


20 BLACK 
19 WHITE 
19 WHITE 
4 WHITE 
13 WHITE 
5 WHITE 
26 BLACK 
12 BLACK 
16 BLACK 
11 BLACK 
25 WHITE 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE: BLACKOUT 
15 CLEAR 500:GOTO95 

20 CLS 

30 RANDOM 

ДО DIM A(2),A$(415,U(45)J 02) 

45 DIM P(12);L(12);B(50),REQZ) 

30 INPUT"LEVEL SELECT (1, 2, OR 3)"3W 
60 IF Wil OR И>З THEN 50 

70 CLS 

20 TY=0;TC=0;M=0 

90 G=(W#45)+25 


15 WHITE 
3 WHITE 
23 BLACK 
6 BLACK 
10 BLACK 
25 BLACK 
19 BLACK 
9 WHITE 
24 WHITE 
20 BLACK 
24 BLACK 
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92 FOR Іс1ТОІ ВЕС -ӘМЕХТІБЕТУВМ 

25 CLS 

74 ВКІМТІРБІМТІРБІМТІРБІКТІРБІМТІРБІМТ 

100 PRINT TAB(17);"BL AC KOU T" 

105 FOR TT=1TOSOO;NEXT 

110 CLSiPRINT 

115 INPUT'INSTRUCTIONS REQUIRED"}U$ 

120 IF Us="YES" THEN 150 

125 IF U$-"NO" THEN GOSUBZOIGOTO300 

130 PRINT"CUT THE FUNNY ANSWERS..." 

135 PRINT"JUST ANSWER YES OR NO!!!" 

140 РБІМТІСОТО11Е 

150 PRINT 

155 PRINT'THIS PROGRAM WILL TEST AND SCORE" 
160 PRINT"YOUR ABILITY TO SOLVE ADDITION" 
155 PRINT'PROBLEMS & REMEMBER COLORS." 

170 PRINT"LEVELS SELECTIONS ARE 1, 2, & 3." 

175 PRINT'THE ADDITION PROBLEMS WILL BE" 

180 PRINT'PRINTED IN ROWS (LEFT TO RIGHT?" 
ish PRINT"EACH ROW WILL CONTAIN 4 NUMERALS" 
170 PRINT"TO BE ADDED TOGETHER," 

172 PRINT'TO THE RIGHT OF EACH NUMBER" 

200 PRINT"YOU WILL SEE ONE OF 2 COLORS!" 

205 PRINT'BLACK OR WHITE." 

219 PRINT 

Z15 INPUT"ENTER"}Z 

220 PRINT"TO THE FAR RIGHT OF YOUR VIDEO" 
225 PRINT"WILL BE NUMBERS, THESE NUMBERS" 
230 PRINT'ARE THE TOTALS TO THE ROWS, BUT" 
239 PRINT"EACH NUMBER IS NOT NECESSARILY" 
240 PRINT"THE TOTAL FOR THE ROW IT IS NEXT TO" 
245 PRINT"THE TOTALS ARE RANDOMLY ARRANGED," 
299 PRINT'DEPENDING ON THE LEVEL YOU SELECT," 
260 PRINT" YOU WILL BE GIVEN A CERTAIN TIME LIMIT" 
265 PRINT"TO ADD ALL 4 NUMBERS ІМ A ROW." 

270 PRINT'THE TOTAL BESIDE THE ROW WILL BE" 
275 PRINT"BLACKED OUT, IF IT WAS THE" 

280 PRINT 

285 INPUT"ENTER"}X 

290 GOTO1S00 

300 W$="WHITE" 

210 B$="BLACK" 

315 IF IT=1 IT-0:CLS 

320 T=1IM=0(L=SiP=1iZ=50iA1=0:A2=0 
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240 IF I-1 THEN 385 

345 PRINTAL-4);R; 

220 PRINT(GL;B$ASTI-B$ 

240 IF L=Z THEN L-L*4:GOTOA410 
370 U(iD-RrU(TIT-THIIL-LH15 

aeo GOTO330 

305 PRINT(3(L-4)R; 

390 PRINTGL,W$;1AS(T)EWS 

400 GOTO360 

410 REM LINE ADVANCE 

470 A(P)-22*101Z222*641P-P*1 

430 IF 27-700 THEN U(T)-R4*U(TYGOTOA45 
440 GOTO370 

445 FOR Iz:1TO11:B(ODzI:'NEXT 

450 GOSUBSOQ!Tz24 

455 FOR I21TO11 

450 E-RND(ü1XIF B(11)20 THEN 465 
462 IF RE(E)=0 THEN 460 

465 J(I)=E:IF B(I):0 THEN 475 

466 RE(E)=0 

470 PRINTQ@A(I)-3,P(E)} 

475 IF Р(Е)=0 THEN 460 ELSE NEXT 
480 FOR К-1ТО45ОІМЕХТ 

490 FOR I=1TO11!FOR J=1TOG 

492 IF B(I)20 THEN 510 

493 Q$2INKEYS:IF b$-CHRS(32) GOSUB900 
300 PRINT@A(T)-3," "$ 

205 QS=INKEYStIF Q$zCHR$C32GOSUB?00 
510 NEXT JiT=T+4:NEXT I 

520 FOR К=1ТО450:МЕХТ 

240 IF Мг11 THEN 1500 

945 IF М=1 AND TY=11 THEN 1500 
555 IF T>=48 THEN T=0 

560 T=T+4 

270 GOSUB400 

380 M=0:;GOTO455 

600 FOR І-1Т011 

610 IF B(I)20 THEN 630 

620 REGI 

&30 NEXT 

440 RETURN 

соо REM TOTALS PER ROW 


115 


uM H=13I=1:J=4 
Z0 P(H)=U(1)+P(H)L(H)=P(H) 
30 IF ТОТ THEN I-I*1:GOTOS20 
о Н=Н+11=1+1^АГ=Т+4 
a0 IF I£243 THEN 870 
© RETURN 
Оо FZPQOGODIDZLOXUZ10IU121 
710 PRINT(QA(D-U,' "S 
N IF Ui<>4 THEN 940 
230 GOTOPLO 
940 UzU*151)U1zU1-*1 
720 GOTO?10 
740 IF DX2F THEN 980 
970 BUI)=03;P(T)=0;GOTO1100 
750 PRINTGL*9Z,,INCORRECT,..' 
735 FOR TT-1TOSOQOINEXT 
770 PRINTQL-*?2," E 
775 Uz55IU1- 1!01=Т-3!102= М=М+1 
1000 PRINTQA(D-U,A$(01) 
1010 IF 01<>02 THEN 1030 
1020 TY=TY+1 
1075 RETURN 
1030 Q1=Q14+13U=U-15301=U1+1 
1040 СОТО1000 
1100 PRINT@L+92;" CORREC Tes" 
1110 FOR TT=iTO500iNEXT 
1120 PRINT(@L+92," n 
1125 IF BX-1 ВХ=0:РЕТОВМ 
1130 Y=T-33BX=1 
1140 IF LEFTS(AS$(Y),1)="W" THEN 1160 
1150 IF LEFTS(A$(Y),1)="B" THEN 1170 
1160 A1l=A1+1;GOTO1180 
1170 А2=А2+1 
1180 IF ҮТ THEN Y=Y+ii:GOTO1140 
1190 IF A12A2 THEN 1220 
1200 IF A1»2A2 THEN 1230 
1210 СФ-"НГАСКСОТО1240 
1220 C$-"EQUAL':GOTO1240 
1230 C$="WHITE" 
1240 PRINT@L+10,} 
1250 PRINT'INPUT THE DOMINANT COLOR" 
1260 INPUT'FOR THAT ROW";P$ 
1270 IF P$<2C% THEN 22-1:GO0TO1280 
1275 TC-TC41:MzOÓ 


cn fa CC oh CO CO 
e eh B En b fmt 


wa 
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1280 PRINT@L+10,; 

1290 PRINT" 

1300 PRINT" 

1305 A1l=O;A2=O;C$=""SIF ТС>-11 THEN 1600 
1310 IF ZZ-1 ZZzZOiB(ID-IIP(OD)-F!BX-0:GOTO980 
1320 GOTO1100 

1300 PRINTQ@L+10,; 

1510 PRINT"DON'T JUST SIT THERE PRESSING" 
1520 PRINT"THE SPACE BAR. GUESSING, USE" 
1530 PRINT"YOUR BRAIN!!!" 


1540 FOR ТТ=1ТО2000:МЕХТ 

1550 CLS:GOSUBS0 

1540 IT=1 

1570 FOR I-1TO11:P(I-OiIL(DZO:INEXT 
1580 GOTO300 

1500 PRINT@L+10,; 

1505 IF TC>=30 THEN 1670 

1510 PRINT"CONGRATULATIONS !!!" 
1620 PRINT"YOU HAVE "; 

1630 IF ТС>=20 PRINT"FINALLY "; 


1640 PRINT"COMPLETED";TC;"PROBLEMS." 
1650 PRINT" AND...ENTERED THE CORRECT COLORS..." 
1660 GOTOZ300 


1630 PRINTTC;"INCORRECT PROBLEMS ! ! l 

1490 PRINT"YOU SHOULD WORK ON YOUR ADDITION" 

1700 PRINT"- AND YOUR MEMORY :- CAREFULLY!" 

1710 СОТО2300 

1500 REM INSTRUCTIONS (CONT) 

1810 PRINT"CORRECT ANSWER, PRESS THE" 

1520 PRINT'SPACE-BAR. THE COMPUTER" 

1830 PRINT'WILL BLACKOUT THE 4 COLORS" 

1840 PRINT" AND SEE IF IT WAS INDEED THE CORRECT 
TOTAL." 

1850 PRINT"IF THE TOTAL WAS CORRECT, YOU WILL" 

1560 PRINT"BE ASKED TO INPUT THE DOMINATING" 

1570 PRINT"COLOR IN THAT ROW (BLACK/WHITE OR" 

1580 PRINT"EQUAL - 2 BLACK + 2 WHITE) IF" 

1870 PRINT"YOU ARE CORRECT, THAT ROW WILL" 

1900 PRINT"BE OMITTED, IF INCORRECT, THE" 

1910 PRINT"COLORS WILL BE REPRINTED IN THAT" 
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1920 PRINT"ROW AND PLAY WILL RESUME." 

1950 PRINT 

1740 INPUT"ENTER"3X 

1950 PRINT"YOU MUST REMEMBER TWO VITAL RULES" 

1970 PRINT"1) ONLY PRESS THE SPACE BAR" 

1930 PRINT"AFTER THE TOTAL HAS BEEN BLACKED" 

1950 PRINT"OUT (ASSUMING IT IS THE RIGHT TOTAL)," 

2000 PRINT"IF THE TOTAL DOES NOT MATCH THE" 

2010 PRINT"ADDED NUMBERS IN THAT ROW, DO 
NOTHING '' 

2020 PRINT"7Z) REMEMBER THAT YOU WILL HAVE" 

2020 PRINT"A TIME LIMIT WITH IN WHICH TO ADD" 

2040 PRINT"THE NUMERALS AND PRESS THE" 

2050 PRINT"SPACE BAR. 

2060 PRINT'(THIS PROGRAM ALSO USES THE" 

2070 PRINT'INKEY$ FUNCTION)" 

2080 PRINT 

2070 INPUT"ENTER"}X 

2095 PRINTIPRINTiIPRINTIPRINTiIPRINT:IPRINT 

2100 PRINT"IF YOU START TO GUESS" 

2110 PRINT"PRESSING THE SPACE BAR FOR" 

2120 PRINT'EVERY ROW, YOU WILL ONLY DEFEAT" 

2130 PRINT"THE PURPOSE OF THE PROGRAM," 

2140 PRINT"RECEIVE A WARNING FROM THE" 

2150 PRINT"COMPUTER, AND HAVE TO START OVER!" 

2160 PRINT"THE PROGRAM ENDS WHEN YOU HAVE" 

Z170 PRINT'ENTERED CORRECT TOTALS" 

2175 PRINT"AND COLORS FOR 11 ROWS," 

2180 PRINT"NOW YOU CAN FINALLY PRESS ‘ENTER’ 

2190 INPUT"TO BEGIN"}X 

2200 GOSUBZOIGOTO300 

2300 REM CONCLUSION 

2310 PRINT'CONCLUSION OF ‘BLACKOUT’..." 

2320 END 
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TO THE DOGS 


This is a simple, yet effective program that will pick out all of the “greedy” 
people who use it. After giving you a $50,000 prize, the computer will take 
more and more for taxes, and then try to con you into taking a computer loan! 
Good luck . . . Don't be too greedy!!! 


Sample Run 


TO THE DOGS 
INSTRUCTIONS REQUIRED? YES 


YOU HAVE JUST WON A GRAND 
PRIZE GIVEAWAY...$50,000.00 

IN COLD HARD CASH. 

NOW THAT YOU HAVE RECEIVED 


YOUR MONEY, YOU CAN'T WAIT 
TO SPEND IT. WHAT WILL YOU 
SPEND IT ON? 

THAT'S SIMPLE, THIS IS A 
COMPUTER PROGRAM, RIGHT? 
SO, YOU'LL SPEND IT ON 
COMPUTER MERCHANDISE. 


ses ENTER ез? 


SO VERY SIMPLE YOU SAY? 
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START 


Clear memory 
for strings 


ik 


Ves 
Output Output list 
instructions items purchased 
tax for area 
Computer 
No Ves 
Set Amount of 
variables isan 
counters 
Yes 
Read 
data list 
Deduct 
Combi more for tax 
ombine 
| Output final 
of items 
ia STOP 


Output 
single data 
items 


Total 
amounts 


Flowchart for To the Dogs 
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THE COMPUTER OFFERS YOU 
ITEMS AND YOU BUY THEM, WHAT 
ELSE COULD BE EASIER, WHAT 
ELSE INDEED. PRESS ENTER 

AND START SPENDING? 


WHAT IS THE TAX IN YOUR AREA? 
(INTEGER AMOUNT IF .04 CENTS 
ENTER ONLY 4)? 0 

YOU DO HAVE TAXES !! 


WHAT IS THE PERCENT OF 

TAX IN YOUR AREA? 4. 

NOW REMEMBER, FOR EVERY 
DOLLAR YOU SPEND THERE 

WILL BE .4 CENTS COLLECTED 

FOR TAXES, IN THIS CASE, COMPUTER 
TAXES. SO IF YOU'RE NOT 

CAREFUL, YOU'LL GO TO THE DOGS 
FASTER THAN YOU THINK. 


YOUR WINNINGS: $50,000.00 
MINUS $20,000.00 FOR TAXES. 


LEAVES YOU $30,000.00 TO SPEND. 


PRESS ENTER FOR A LIST 
OF ITEMS YOU CAN PURCHASE? 


NEW HOME (3 BEDROOM) 
DIAMOND RINGS 

CAR (WITH OPTIONS) 
ASSORTED JEWELRY 
COMPLETE HOME FURNISHINGS 
CLOTHES (MEN) 

FOOD SUPPLY (1 YEAR) 
CLOTHES (WOMEN) 
KITCHEN APPLIANCES 
CLOTHES (CHILDREN) 
TOYS (ROOM FULL) 

COLOR TELEVISION 
STEREO EQUIPMENT 
MICROWAVE OVEN 
RECORDS (50 ALBUMS) 
TRIP TO HAWAII 

HOME COMPUTER SYSTEM 
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TRIP TO JAPAN 

POOL TABLE 

TRIP TO BAHAMAS 

SMALL KITCHEN APPLIANCES 
TRIP TO PARIS 

LIVING ROOM FURNISHINGS 
CANDY BARS (200) 
BEDROOM FURNISHINGS 
MAGAZINE SUB. (10) 
RECREATION EQUIPMENT 
WASHER / DRYER 
WATCHES 

DISHWASHER 


PRESS ENTER AFTER VIEWING? 
NOW THE ITEMS WILL BE 
PRINTED ONE AT A TIME 

WITH THEIR TOTAL COST. 

TO PURCHASE ANY ITEM, PRESS 
THE SPACE BAR. OTHERWISE 
DO NOTHING. 


1) NEW HOME (3 BEDROOM) $40,000.00 
2) CAR (WITH OPTIONS) $9,000.00 
3) COMPLETE HOME FURNISHINGS $12,000.00 
4) FOOD SUPPLY (1 YEAR) $2,000.00 
5) KITCHEN APPLIANCES $5,000.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $5,000.00 
6) TOYS (ROOM FULD) $1,000.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $6,000.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $7,000.00 
7) STEREO EQUIPMENT $3,000.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $10,000.00 
8) RECORDS (50 ALBUMS) $400.00 


TOTAL PURCHASES (NOT INCLUDING 
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TAXES)... $10,400.00 
9) HOME COMPUTER SYSTEM 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $13,400.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $16,400.00 
10) POOL TABLE 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $17,395.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $18,390.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $19,385.00 
11) SMALL KITCHEN APPLIANCES 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $19,885.00 

12) LIVING ROOM FURNISHINGS 

13) BEDROOM FURNISHINGS 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $26,385.00 
14) RECREATION EQUIPMENT 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $27,585.00 
15) WATCHES 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $27,985.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $28,385.00 
16) DIAMOND RINGS 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $40,385.00 
17) ASSORTED JEWELRY 


$3,000.00 


$995.00 


$500.00 


$4,500.00 
$6,500.00 


$1,200.00 


$400.00 


$12,000.00 


$2,300.00 
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TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $42,685.00 


TOTAL PURCHASES (NOT INCLUDING 
TAXES)... $44,985.00 


TOTAL PURCHASES (NOT INCLUDING 

TAXES)... $47,285.00 

18) CLOTHES (MENS) $1,800.00 
19) CLOTHES (WOMEN) $2,400.00 


TOTAL PURCHASES (NOT INCLUDING 

TAXES)... $49,685.00 

20) CLOTHES (CHILDREN) $1,200.00 
.21) COLOR TELEVISION $1,500.00 


TOTAL PURCHASES (NOT INCLUDING 

TAXES)... $51,185.00 

22 MICROWAVE OVEN $600.00 
23) TRIP TO HAWAII $2,500.00 
24) TRIP TO JAPAN $3,500.00 
25) TRIP TO BAHAMAS $4,200.00 
26) TRIP TO PARIS $6,500.00 
27) CANDY BARS (200) $65.00 
28) MAGAZINE SUB. (10) $90.00 
29) WASHER / DRYER $600.00 
30 DISHWASHER $245.00 


YOU HAVE PURCHASED 21 ITEMS. 

YOUR WINNINGS WERE: $30,000.00 

THESE 21 ITEMS CAME TO: $51,185.00 
TAXES ON THESE ITEMS EQUAL: $20,474.00 
YOU HAVE OVERSPENT, BY A TOTAL 

OF: $41,659.00 | 

THIS AMOUNT: $60,948.00 
IS THE TOTAL COLLECTED FOR 

TAXES, DURING AND AFTER 

THE PURCHASE OF ALL 21 ITEMS. 


PRESS ENTER? 
INSTEAD OF FILING FOR BANKRUPTCY, YOUR 


COMPUTER WILL GIVE YOU A LOAN 
OF: $41,659.00 
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OR, YOU CAN TAKE A LOAN FOR: 
$121,896.00 

PROVIDED YOU PAY IT BACK WITH 
A REASONABLE AMOUNT OF 
INTEREST. ACTUALLY, BY 

TAKING THE LARGER LOAN YOU'LL 
BE ABLE TO INCREASE YOUR 
BUYING POWER. 


SELECT YOUR LOAN: 
1) $41,659.00 
2) $121,896.00 


YOU HAVE ACCEPTED THE LARGER 
LOAN...THAT’S FINE. 

AMOUNT OF LOAN FINANCED:$121,896.00 
FINANCE CHARGES:$414,446.00 

DO YOU WANT TO MAKE 

ADDITIONAL PURCHASES NOW? YES 

1) NEW HOME (3 BEDROOM) 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE: TO THE DOGS 

20 CLSICLEAR 500 

30 PRINT TAB(15);"TO THE DOGS" 

40 PRINT 

20 INPUT"INSTRUCTIONS REQUIRED";X$ 

£0 IF X$="NO" THEN 280 

70 PRINT 

20 PRINT"YOU HAVE JUST WON A GRAND" 
70 PRINT"PRIZE GIVEAWAY ..,$50,000,00" 

100 PRINT"IN COLD HARD CASH." 

110 PRINT"NOW THAT YOU HAVE RECEIVED" 
120 PRINT"YOUR MONEY, YOU CAN'T WAIT" 
130 PRINT"TO SPEND IT. WHAT WILL YOU" 
140 PRINT'SPEND IT ОМ?" 

150 PRINT'THAT'S SIMPLE, THIS IS A" 

140 PRINT'COMPUTER PROGRAM, RIGHT 7" 
170 PRINT'SO, YOU'LL SPEND IT ON" 


$40,000.00 
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180 PRINT"COMPUTER MERCHANDISE." 

190 PRINT 

200 INPUT"### ENTER ###";X 

210 CLS 

220 PRINT"SO VERY SIMPLE YOU SAY ?" 

230 PRINT'THE COMPUTER OFFERS YOU" 

240 PRINT"ITEMS AND YOU BUY THEM, WHAT" 
250 PRINT"ELSE COULD BE EASIER? WHAT" 

260 PRINT"ELSE INDEED? PRESS ENTER" 

270 INPUT"AND START SPENDING";X 

250 CLS 

290 PRINT"WHAT IS THE TAX IN YOUR AREA" 
300 PRINT'(INTEGER AMOUNT, IF .04 CENTS" 
302 INPUT"ENTER ONLY 4)"jT 

305 IF T<=0 PRINT"YOU DO HAVE TAXES !!";GOTOQO290 
310 TTzT/100!IF INT(T)<=0 THEN 290 

320 PRINT'NOW REMEMBER, FOR EVERY" 

330 PRINT"DOLLAR YOU SPEND THERE" 

340 PRINT"WILL BE";TT;"CENTS COLLECTED" 
350 PRINT"FOR TAXES, IN THIS CASE, COMPUTER" 
360 PRINT'TAXES, 50 IF YOU'RE NOT" 

370 PRINT"CAREFUL, YOU'LL GO TO THE DOGS" 


380 PRINT"FASTER THAN YOU THINK." 
390 КФ "ФФ ЗРЗЕ, 484 FH" 

400 D=SE+04;DIM M$(30),M(30);L=15V=1 
405 DIM P$(30),P(30) 

410 PRINT"YOUR WINNINGS:'; 

420 PRINT USING W$jD 

430 A-D*TT 

440 PRINT"MINUS"j 

450 PRINT USING ИФА; 

460 PRINT" FOR TAXES." 

470 GOTO1100 

430 PRINT"LEAVES YOU"; 

490 PRINT USING W$;D; 

300 PRINT" TO SPEND." 

310 GOTOSOO 

520 REM DATA CHOICES 

330 FOR I=1TO3SO;READ MS(INNEXT 
240 FOR I=1TO30;READ M(IXNEXT 
320 1=1:7=16 

940 IF 1=11 GOSUB1140 

370 IF l-12 GOSUB1160 

980 IF l-13 GOSUB1160 
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390 PRINT M$(I); 

500 REM CONCATENATE STRINGS 

510 REM FOR TRIPS 

620 IF J=24 GOSUB1180 

630 IF J=25 GOSUB1180 

640 IF J=26 GOSUB1180 

650 PRINT TAB(30);M$(J) 

640 IF I=15 THEN 710 

690 I=I+1iJ=J+1 

700 GOTOSSO 

710 GOTO860 

800 REM INPUT CHOICES 

810 PRINT 

820 PRINT'PRESS ENTER FOR A LIST" 
830 INPUT'OF ITEMS YOU CAN PURCHASE" ХХ 
840 CLS 

850 GOTOSZO 

860 РКІМТ(8960;; 

870 PRINT"PRESS ENTER AFTER VIEWING"; 
880 INPUT XX 

890 CLS 

900 PRINT"NOW THE ITEMS WILL BE" 
910 PRINT"PRINTED ONE АТ A TIME" 
920 PRINT"WITH THEIR TOTAL COST." 
930 PRINT"TO PURCHASE ANY ITEM," 
940 PRINT'PRESS THE SPACE BAR" 
950 PRINT'OTHERWISE DO NOTHING..." 
955 FOR ХХ-1ТО2500:МЕХТ 

960 I-1:GOSUB1045 

970 PRINT 1i") ";M$(Oj 

980 PRINT TAB(32Z);USING W$;M(T) 

990 FOR XX-1TO200 

1000 АФ-ІМКЕҮ% 

1010 IF A$-" " THEN 1030 

1015 NEXT!IF I-30 THEN L-L-1:60TO1700 
1020 I-I*t1:GOSUB1050:GOSUB1045 
1025 GOTOY70 

1030 P$(0IL)-M$() 

1035 P(CL)EM(IWA-ZA*P(ILXTTILzL*1 

1040 P-ZP(L-1)*PIGOSUB1600:GOTO1015 
1045 PRINT(2443, 5: RETURN 

1050 FOR X=0TO90;SET(X,21) 

1055 RESET(X,21%NEXT 

1040 RETURN 
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1100 REM DEDUCTIONS 
1110 D=D-A 


1130 GOTO480 

1140 M$(I)=M$(I)+" "+RIGHTS(MS(S),10) 
1150 RETURN 

1160 M$(D=MS(T)+" "+RIGHTS(MS(3),11) 
1170 RETURN 

1180 TS-M$(J) 

1190 M$(J)=LEFTS(M$(23),7)+" "+T$ 
1195 RETURN 

1200 DATA NEW HOME (3 BEDROOM) 
1210 DATA CAR (WITH OPTIONS) 
1220 DATA COMPLETE HOME FURNISHINGS 
1230 DATA FOOD SUPPLY (1 YEAR) 
1240 DATA KITCHEN APPLIANCES 
1250 DATA TOYS (ROOM FULL) 

1260 DATA STEREO EQUIPMENT 

1270 DATA RECORDS (50 ALBUMS) 
1280 DATA HOME COMPUTER SYSTEM 
1290 DATA POOL TABLE 

1300 DATA SMALL KITCHEN 

1310 DATA LIVING ROOM 

1320 DATA BEDROOM 

1330 DATA RECREATION EQUIPMENT 
1340 DATA WATCHES 

1350 DATA DIAMOND RINGS 

1360 DATA ASSORTED JEWERLY 

1370 DATA CLOTHES (MEN) 

1380 DATA CLOTHES (WOMEN) 

1390 DATA CLOTHES (CHILDREN) 
1400 DATA COLOR TELEVISION 

1410 DATA MICROWAVE OVEN 

1420 DATA TRIP TO HAWATI 

1430 DATA JAPAN 

1440 DATA BAHAMAS 

1450 DATA PARIS 

1460 DATA CANDY BARS (200) 

1470 DATA MAGAZINE SUB, (10) 

1480 DATA WASHER / DRYER 

1490 DATA DISHWASHER 

1500 REM DATA AMOUNTS 

1510 DATA 40000,9000,12000 

1320 DATA 2000,3000,1000,3000 
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1330 DATA 400,3000,995,500 

1540 DATA 4500,6500,1200 

1550 DATA 400,12000,2300 

1360 DATA 1800,2400,1200 

1570 DATA 1500,600,2500 

1580 DATA 3500,4200,6500 

1590 DATA 65,90,600,245 

1600 REM PRINT TOTAL PURCHASES 

1610 PRINT@704,; 

1620 PRINT"TOTAL PURCHASES (NOT INCLUDING" 
1630 PRINT"TAXES),.."3 

1640 PRINT USING W$jP 

1650 RETURN 

1660 GOSUB1030:GOSUB995 

1670 GOTO1670 

1700 REM TOTAL PURCHASED 

1710 CLSILP-L-E 

1720 IF Р<=0 THEN CLS:GOTO960 

1730 W=P#TT WJ (V)=L-ESTP=TP+J(V) 

1735 REM IF HK=1 THEN L=L-E 

1740 PRINT" YOU HAVE PURCHASED";LP;"ITEMS." 
1742 IF HH-1 AND HK=1 THEN НН-0%50Т01770 
1745 IF HK=1 PRINT" YOUR LOAN AMOUNT:?"560TO1760 
1750 PRINT"YOUR WINNINGS WERE*'; 

1760 PRINT USING W$;D 

1770 PRINT" THESE";LP;"ITEMS CAME TO3"; 

1750 PRINT USING W$;P 

1790 PRINT'TAXES ON THESE ITEMS ЕОСАТ:"; 
1500 PRINT USING W$;W 

1810 U=(P+W)-DiUU=P+WiG=Q+W 

1520 IF UU>D THEN 1840 

1830 XE=1:D=D-(P+W)iGOTOZ310 

1840 PRINT"YOU HAVE OVERSPENT, BY A TOTAL" 
1550 PRINT"OF:"; 

1360 PRINT USING W$;U 

1870 PRINT'THIS AMOUNT':?'; 

1850 PRINT USING W$;Q 

1890 PRINT"IS THE TOTAL COLLECTED FOR" 
1900 PRINT"TAXES, DURING AND AFTER" 

1910 PRINT"THE PURCHASE ОҒ ALL";L;"ITEMS.," 
1720 PRINT 

1920 INPUT"PRESS ENTER" ХХ 

1740 CLS 

1950 PRINT"INSTEAD OF FILING FOR BANKRUPTCY," 
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1960 PRINT" YOUR COMPUTER WILL GIVE YOU" 
1970 PRINT'A LOAN ОҒ" 
1950 PRINT USING W$;U 
1970 PRINT"OR, YOU CAN TAKE A LOAN FOR?" 
2000 LN-INT(Q*2) 
2005 IF LN<U THEN LN=U#1.5 
2010 PRINT USING W$;LN 
2020 PRINT"PROVIDED YOU PAY IT BACK WITH" 
2030 PRINT"A REASONABLE AMOUNT OF" 
2040 PRINT'INTEREST, ACTUALLY BY" 
2050 PRINT"TAKING THE LARGER LOAN YOU'LL" 
2060 PRINT'BE ABLE TO INCREASE YOUR" 
2670 PRINT"BUYING POWER." 
2080 PRINT: QI=Q+QI 
2090 PRINT"SELECT YOUR LOAN?" 
2100 PRINT"1) "; 
2110 PRINT USING W$;U 
2120 PRINT"Z) "; 
2130 PRINT USING W$;LN 
2140 INPUT F 
2150 CLS 
2160 IF F=1 THEN D-20O:JL-1:GOTO2310 
2170 PRINT"YOU HAVE ACCEPTED THE LARGER" 
2180 PRINT"LOAN,...THAT’S FINE." 
2190 PRINT'AMOUNT OF LOAN FINANCED"; 
2200 PRINT USING W$;LN 
2210 PRINT"FINANCE CHARGES"; 
2220 FI=LN#((8.5)4(TT))QI=FI+QI3D=LN 
2230 PRINT USING W$;FI 
2240 PRINT"DO YOU WANT TO MAKE" 
2250 PRINT'ADDITIONAL PURCHASES NOW"; 
2260 INPUT X$ 
2270 IF X$="YES" OR X$-"Y" THEN 2285 
2280 KI-1:GOTOZZ10 
2283 IF JL=1 THEN 2900 
2290 E-LIL-LĦIV-VHri 
2295 Рі=Р:Аі=А:А=0:Р=0:НК=1 
2300 GOTO960:REM MORE PURCHASES 
2310 PRINT 
2315 IF КІ=1 KI20:GOTOZ700 
2320 PRINT"WELCOME TO THE END OF" 
2330 PRINT'THE LINE." 
2339 IF XE=1 XE=0;GOTOZ500 
2340 PRINT'THE COMPUTER’S TOTAL" 
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2390 PRINT"COLLECTIONS ="; 
2350 PRINT USING W$;QI 
2300 REM USER BALANCE LEFT 
2510 PRINT"YOU STILL HAVE"; 
2920 PRINT USING W$;D; 
2530 PRINT" LEFT TO SPEND." 
2540 REM PRINT ITEMS 
2950 PRINT" YOUR PURCHASED ITEMS ARE" 
2555 PRINTSIF ТР>-5 TY=5 ELSE TY=TP 
2960 LK=1 
2565 FOR I=LKTOTY 
2570 PRINT Ij") "$P$(1)3"+eAMOUNTS"; 
2980 PRINT USING W$;P(I)} NEXT 
2585 IF ТҮ<>ТР GOTO2650 
2270 FOR ХХ-1ТО25003МЕХТ 
2600 PRINT 
2605 IF FG=1 FG=0:GOTO3110 
2610 INPUT"PRESS ENTER';XX 
2620 CLS:HH21:GO0TOZ2240 
2650 PRINT 
2660 INPUT"PRESS ENTER";XX 
2670 LK-TY*1:TY-TP:GOTO2S565 
2700 REM FEDERAL TAXES 
2710 PRINT 


2720 PRINT"YOU'VE DECIDED NOT TO PURCHASE" 


2730 PRINT"MORE ITEMS NOW ^?" 

2740 IF DX10 THEN 2840 

2730 PRINT"THE MONEY YOU HAVE REMAINING" 
2760 PRINT"IN YOUR POSSESSION 15 GREATER" 
2770 PRINT'THAN SHOULD BE. I MUST" 

2730 PRINT'REMOVE AN AMOUNT FOR FEDERAL" 
2790 PRINT'TAXES, THIS AMOUNT IS"; 

2800 AM=(D#TT)#24,9 

== 10 PRINT USING W$;AM 


830 PRINT USING W$;D-AM 
‘35 PRINT" YOU'VE JUST GONE TO THE DOGS ''" 
40 PRINT"GOODBYE...FOR NOW t" 


s 
270 PRINT"WINNINGS AND ACCEPTED А" 
730 PRINT"LOAN FROM THE COMPUTER." 
940 PRINT"YOU ARE AT THE END OF THE LINE" 


кә Pa һә С к Eo ro jn һә ba 
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2940 PRINT'SELLING SOME ITEMS." 

2970 PRINT"NATURALLY, THESE ITEMS HAVE" 
280 PRINT"DEPRECIATED IN VALUE." 

990 PRINT 

000 PRINT"PRESS ENTER NOW AND THE" 

3010 PRINT"COMPUTER WILL GIVE YOU A" 
3020 PRINT"LIST OF THE ITEMS YOU PURCHASED" 
3030 PRINT"AND THEIR CURRENT VALUES" 
3040 INPUT X$:CLS 

3050 FOR I-1TOTP 

3055 IF LEFT&(P$(I),1)="F" THEN P(1)0:GOTO3070 
3060 P(D=P(I)-(P(I)*+TT)#24,7 

3070 NEXT 

3080 FG=1 

3090 REM GOTO PRINTOUT 

3100 СОТО2540 

3110 REM PAYBACK 

3120 PRINT" YOUR LOAN WAS FOR"; 

3130 PRINT USING W$;U+FI 

3135 PRINT'INCLUDING INTEREST." 

3140 PRINT'HOW MANY ITEMS DO YOU WANT" 
3150 PRINT"TO SELL BACK TO THE COMPUTER" 
3160 INPUT"TO REPAY THIS LOAN";PB 

3170 PRINT'ENTER THE NUMBERS FOR THESE" 
3180 PRINT PB;"ITEMS." 

3190 FOR I-1TOPB 

3200 INPUT DF 

3210 WE=P(DF)+WE 

3220 NEXT 

3230 IF WECU THEN 3270 

3240 PRINT"VERY WELL DONE, YOU'VE PAID" 
3230 PRINT"BACK THE LOAN." 

3260 GOTOZ840 

3270 PRINT'THE VALUE OF THE ITEMS YOU'VE" 
3280 PRINT'SOLD BACK DOESN'T EQUAL THE" 
3290 PRINT'AMOUNT OF YOUR LOAN..." 

3295 PRINT'TO THE DOGS YOU GO !!" 

3300 GOTO3260 
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CHALLENGE YOUR COMPUTER 


Don’t let your computer trick you with this program. If you aren’t sharp 
enough to match the characters with their corresponding numbers on your 
own and you rely on the computer’s efforts, you just might get fooled! You 
can play against your computer, or the computer can play by itself. 


Sample Run 


CHALLENGE YOUR COMPUTER 
SEE THE INSTRUCTIONS? YES 


THIS PROGRAM WILL LET YOU CHALLENGE 
YOUR COMPUTER, OR YOU CAN LET 

THE COMPUTER PLAY BY ITSELF. 

IT IS ANUMBERS GAME, 

BUT WITH A NEW TWIST: THE NUMBERS 1-6 
WILL BE USED ALONG WITH CHARACTER CODES 
THAT WILL BE RANDOMLY SELECTED FROM 174 
TO 191. 


PRESS ENTER? 


YOU WILL PLAY FIRST. YOU WILL INPUT 
YOUR GUESS CONCERNING HOW 
THESE NUMBERS ARE RANDOMLY ARRANGED 


133 


START 


Set 
variables 
Challenge 
computer 
i la 
Nos by itself No play 
No YES 
Print original 
characters 
Input user 
code 
Print code 
amt. correct 
User solved Print total 
YES code attempts 
NO Print games 
Computer played 
plays 
Print total 
Print scores 
characters 


Play 
Yes again 
Yes 


No 
another STOP 
code 


Flowchart for Challenge your Computer 
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IN THE COMPUTER’S MEMORY. ENTRY OF 

THESE NUMBERS WILL USE THE INKEY$ 

FUNCTION, SO DON’T PRESS ENTER. 

AFTER YOU INPUT YOUR NUMBERS THE COMPUTER 
WILL PRINT THE NUMBER YOU HAVE 

CORRECT (IF ANY). THE COMPUTER WILL THEN 
PLAY, BUT, IT WILL NOT PRINT ITS 

NUMBER SELECTION, IT WILL ONLY PRINT 

THE CHARACTERS PERTAINING TO THE NUMBERS. 


PRESS ENTER? 


YOU CAN LOOK AT THE COMPUTER'S SELECTION 
TO TRY AND UNSCRAMBLE THE CORRECT CODE, 
BUT, YOU MIGHT BE FOOLED!! 

THE OBJECT IS TO UNSCRAMBLE THE CODE 
BEFORE THE COMPUTER DOES. 

OH YES, IF YOU DON’T WANT TO CHALLENGE 

THE COMPUTER, JUST ANSWER THE APPROPRIATE 
QUESTION WITH A ‘NO’ AND THE COMPUTER 

WILL PLAY BY ITSELF. 


PRESS ENTER TO PLAY? 


DO YOU WANT TO CHALLENGE YOUR COMPUTER? YES 


Program Listing 


10 REM PROGRAM TITLE: CHALLENGE YOUR COMPUTER 

12 GOSUBZ100 

13 CLS:CLEARSO0 

20 FOR [=1TO4sA(D=LK(D)=LiV(D=LNEX Tic=65 

21 RANDOM 

24 V$="YOU’LL PLAY FIRST" 

28 J=1;H=0;Y=0:JM=46:AA=0'/TS=0;CC=0;RR=0 

30 IF JK=1 THEN RF=0:GOTO2S 

si PRINT"DO YOU WANT TO CHALLENGE YOUR 
COMPUTER"; 

32 INPUT I$ 

33 IF I$2"NO" THEN JK=1:RF=0 

34 CLS:IF JK=0 PRINT TAB(15);V$;;GOSUB1150;CLS 

35 P-RND(?1) 

40 IF Р<=174 THEN 55 

45 Pi=P 
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чо Q=RND() 

60 IF A(Q)=0 THEN 50 

ċa REM PRINTA(Q); 

70 Q(J)-A(QQIAQDZON ZI +1 

80 IF Ј<=6 THEN 35 

100 FOR І-1Т06 

110 ASIDD-STRINGS$(6,P(I)) 

115 QS(IID-AS(IIIWS(ID-A$(I) 

120 NEXT:X$-" " 

125 GOSUBI130:GOTO190 

130 I-i 

140 PRINT AS(I)+X$} 

145 I-I*1:IF 1<=6 THEN 140 

146 IF RM=1 RM=0 

147 IF JK=1 THEN A=C+42;RETURN 
150 А-Сі2-1 

160 PRINT(@A,K(Z); 

170 А=А+7:2=7+1 

150 IF 7<-6 THEN 160 ELSE RETURN 
190 IF (AA)+(RF)+(TS))=0 GOSUB430 
200 REM USERS TURN 

210 IF JK-1 THEN 1200 

230 I-1:IF RF=1 GOSUB1000:1GOSUB150 
233 IF RF=1 RF=0:GOTO1200 

240 A$-INKEYS$:IF JK=1 THEN A$-"C":GOTO1200 
245 IF А%-"Н" GOSUB700:1GOSUBA00:GOTO900 
290 IF А%-"" THEN 240 

260 K(IID-VAL(AS$)K-K() 

270 A$(D-Q$(OC 

272 IF K-Q(I) THEN H=H+1 

275 I-Iti 

280 IF 1<=6 THEN 240 

285 IF H>=1 GOSUB 500 

290 БЕ-ӘІРКІМТІРКІМТ 

300 C2C*1921AA-AA*1 

305 IF АА>-5 THEN 320 

310 IF АА=1 AND LK<>2 PRINT ELSE IF AA=3 PRINT 
315 GOSUB130:GOTO190 

320 TS-AA*TSIAA-T1ILKzO 

330 C265 

340 GOSUB1150;CLS 

345 GOSUBA00!PRINT:PRINTiCz-C*192:GOTO315 
350 IF JK=1 GOSUB400 

360 GOTOZZO 
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400 I=1 

410 PRINT QS(I)+X$; 

420 IF 1<=6 THEN I-2I4*1:GOTO410 

425 FOR E-1TO6:L(E)-K(ENVK(E)-EINEXT!XC71 
430 PRINT@(C-64)+50,"ORIGINAL"}IF JK-1 RETURN 
431 IF ХС<21 RETURN 

435 GOSUB150 

440 REM 

445 XC=0 

450 FOR E-1TO6:IK(E)-L(EXYNEXT 

460 RETURN 

500 ТН=ТН+і:ТТ(ТН)=Н 

510 IF TH?-2 AND TT(1)?-TT(2) THEN 540 
920 IF TH?-Z AND TT(2)>=TT(1) THEN 530 
929 GOTOS7O 

430 TT(ü)-TTGXHG-70 

240 TH-TH-1 

3290 IF HG=1 RETURN 

370 MB=1 

380 R$(MB)-A$(MB) 

290 TY(MB)=K(MB) 

600 MB=MB+1 

610 IF MB<=4 THEN 580 

620 HG=1 

630 RETURN 

700 REM HIGHEST NUMBER PER ATTEMPT 
710 PRINT;PRINT 

720 FOR МВ-1Т06 

730 PRINT R$(MBX$j 

740 NEXT 

750 PRINT 

760 FOR MB-1TOĊ 

770 PRINT" ";TY(MB);" "; 

780 NEXT 

790 PRINT 

бой PRINT 

810 PRINT"HIGHEST CORRECT =";TT(1) 
820 PRINT"PRESS ENTER TO CONTINUE"; 
830 INPUT I$ 

840 CLS 

830 C265 

сео RETURN 

900 AA=0 

910 I21 
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gu Ag="" 
920 LK=2 
740 GOTO240 
1000 REM PRINT CORRECT 
1010 PRINT@(A-128)+70,H;" CORRECT"; 
1015 IF H=4 THEN 1100 
1020 Н-ОІВЕТУВМ 
1100 TS-TS*AA:PRINT 
1195 РБІМТІРКІМТ 
1110 PRINT TAB(10)"YOU HAVE FIGURED OUT THE CODE 
1120 PF=1:;DD=DD+1:GOTO1450 
1150 FOR HL=1TO1000;NEXT 
1160 RETURN 
1200 REM COMPUTERS PLAY 
1201 IF AA=0 AND JK=1 GOSUB430:PRINT 
1203 FOR T=1TO4é;D(T)=T NEXT 
1205 ВМ=1:Т=1:1=1:7ЈЈ=ЈМ 
1208 IF V(T)=0 THEN 1225 
1210 U(T)I-ERND(JJ) 
1215 IF D(U(T))=0 THEN 1210 
1218 B-U(T) 
1220 IF B=Q(T) THEN M(T)=BiGOTO1296 
1225 IF R(T)=6 AND RR=0 GOSUB1400 
1226 IF R(T)=5 AND RR=1 GOSUB1400 
1227 IF R(T)=4 AND RR-2 GOSUB1400 
28 AS(D=WS(M(T)) 
? IF А$(1)="" THEN A$(D-STRING$(6,P(T)) 
30 D(U(T))=0 
35 Т-Т%141-1%1 
О IF Т<-6 THEN 1208 
5 IF Y-6 THEN 1300 
250 IF Y=3 THEN RR=0:GOTO1203 
1260 Н=0:АА=АА+1 
1270 PRINTiPRINT:GOSUB130 
1275 PRINT(3A*64470,Y;" CORRECT"; 
1280 C=C+192 
281 CC2CC*1 
1285 IF АА>-5 THEN 1287 
1286 СОТО1292 
1257 C=65:;GOSUB1150i:CLS 
1290 GOSUBA400:1AA-1 
1292 IF JK=1 PRINT 
1295 СОТО230 
1274 RIT=M(TV(T)=0 
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1297 Y=Y+1 

1298 GOTO1225 

1300 РКІМТІРКІМТ 

1310 PRINT TAB(3);"I HAVE FIGURED QUT THE CORRECT 
SEQUENCE." 

1320 UP=1 

1330 DE=DE+1 

1340 GOTO1450 

1400 R(T)=0 

1410 JM=JM-1iJJ=JM 

1420 IF RR=0 RR=1;RETURN 

1430 IF RR=1 RR-ZiRETURN 

1440 IF RR-Z RR=0;RETURN 

1450 PRINT TAB(12);"THE CORRECT SEQUENCE IS?" 

1460 FOR 1=1ТО& 

1463 IF PF=1 PRINT Q$(Q(1))+X$;;,NEXT:GOTO1 480 

1470 PRINT WS(M(I))+X$;;NEXT 

1480 РКІМТІРЕ-О“ТВ-1 

1490 FOR I-1TO&6:PRINT TAB(TB);Q(1);;TB=TB+7:NEXT 

1600 IF UP-1 UP=0:GOTO1650 

1610 PRINT 

1620 PRINT TAB(13);"TOTAL ATTEMPTS =";TS 

1630 GOTO1670 

1650 PRINT:CC=CC+1 

1855 IF CC=0 CC=1 

16660 PRINT TAB(13);"TOTAL ATTEMPTS =";CC 

1670 GOSUBI1150 

1675 GP=GP+1 

1680 РБІМТІРКІМТ 

1690 PRINT TAB(15);"GAMES PLAYED =";GP 

1695 IF JK=1 THEN 1900 

1700 PRINT"YOU'VE WON: "ҰО; 

1710 PRINT TAB(S2);"I HAVE WON: "ПЕ 

1720 PRINT TAB(15) 

1730 INPUT"PLAY AGAIN";I$ 

1740 IF I$-"YES" THEN 1980 

1750 PRINT 

1760 PRINT TAB(13);"END OF PROGRAM RUN..." 

1770 END 

1800 REM ANOTHER GAME 

1810 CLS 

1820 FOR І-1Т06 

1830 R$(I)="" 

1840 TY(T)=0 

1850 NEXT 
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1560 TH=0:LK=0 

1870 GOTOZO 

1900 TU-RND(2) 

1910 ON TU GOTO 1915,1935 

1915 PRINT 

1920 PRINT TAB(10);"I THINK I'LL PLAY ANOTHER." 

1930 FOR JHz21TO1250:NEXT:GOTO1980 

1935 PRINT 

1940 PRINT TAB(S);"I‘VE HAD ENOUGH PLAYING BY 
MYSELF." 

1950 PRINT ТАВ(12);"50 Г/М ENDING THIS PROGRAM," 

1960 PRINT 

1970 GOTO1750 

1980 FOR І-1Т06 

1990 AS(T)="" 

2000 M(T)=0 

2010 NEXT 

2020 GOTO1800 

2100 CLS 

2110 PRINT TAB(15);"CHALLENGE YOUR COMPUTER" 

2120 PRINT 

2130 PRINT"SEE THE INSTRUCTIONS"; 

2140 INPUT I$ 

2150 IF I$2"NO" RETURN 

2160 PRINT 

2170 PRINT"THIS PROGRAM WILL LET YOU CHALLENGE" 

2180 PRINT" YOUR COMPUTER, OR YOU CAN LET" 

2190 PRINT"THE COMPUTER PLAY BY ITSELF." 

2200 PRINT"IT IS A NUMBERS GAME," 

2210 PRINT"BUT WITH À NEW TWIST: THE NUMBERS 1-6" 

2220 PRINT"WILL BE USED ALONG WITH CHARACTER 
CODES" 

2230 PRINT"THAT WILL BE RANDOMLY SELECTED 
FROM 174" 

2240 PRINT'TO 191," 

2230 PRINT 

2260 PRINT"PRESS ENTER"; 

2270 INPUT X:CLS 

2230 PRINT 

2290 PRINT"YOU WILL PLAY FIRST, YOU WILL INPUT" 

2300 PRINT"YOUR GUESS CONCERNING HOW" 

2310 PRINT"THESE NUMBERS ARE RANDOMLY 
ARRANGED" 

2320 PRINT'IN THE COMPUTER’S MEMORY, ENTRY OF" 

2330 PRINT"THESE NUMBERS WILL USE THE INKEY$" 
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2340 PRINT"FUNCTION, SO DON’T PRESS ENTER." 

2330 PRINT'AFTER YOU INPUT YOUR NUMBERS THE 
COMPUTER" 

2360 PRINT"WILL PRINT THE NUMBER YOU HAVE" 

2270 PRINT'CORRECT (IF ANY), THE COMPUTER WILL 
THEN" 

2380 PRINT"PLAY, BUT, IT WILL NOT PRINT ITS" 

2390 PRINT"NUMBER SELECTION; IT WILL ONLY PRINT" 

2400 PRINT"THE CHARACTERS PERTAINING TO THE 
NUMBERS." 

2410 PRINT 

2420 PRINT"PRESS ENTER"; 

2430 INPUT XiCLS 

2440 PRINT 

2450 PRINT" YOU CAN LOOK AT THE COMPUTER’S 
SELECTION" 

2460 PRINT"TO TRY AND UNSCRAMBLE THE CODE," 

2470 PRINT"BUT, YOU MIGHT BE FOOLED 

2480 PRINT"THE OBJECT IS TO UNSCRAMBLE THE CODE" 

2490 PRINT"BEFORE THE COMPUTER DOES." 

2900 PRINT"OH YES,IF YOU DON’T WANT TO CHALLENGE" 

2310 PRINT"THE COMPUTER, JUST ANSWER THE 
APPROPRIATE" 

2520 PRINT"QUESTION WITH A 'NO' AND THE COMPUTER" 

2330 PRINT"WILL PLAY BY ITSELF." 

2240 PRINT 

2990 PRINT"PRESS ENTER"; 

2960 INPUT X!PRINT 

2970 PRINT"TO SEE YOUR'NUMBER OF CORRECT ENTRIES” 

2580 PRINT"HIT THE 'H' KEY WHEN IT IS" 

2270 PRINT"YOUR TURN TO PLAY." 

4600 PRINT 

2410 INPUT"PRESS ENTER TO PLAY" ;X 

2620 RETURN 
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KEEP OUT OF THE GUTTER 


WML EEE EZ EEX EEE Ж 


o- 


Just use your head and you'll probably still end up in the gutter! Think before 
you enter a number between 4 and 9—try to match the computer’s 
numbers—and you might even win after a total of 30 rounds has been played. 
Press the ENTER key at anytime to see total number of rounds played and 
the number of points you and your computer have. 


Sample Run 


+ KEEP OUT OF THE GUTTER + 


INSTRUCTIONS ARE AS FOLLOWS: 
“KEEP OUT OF THE GUTTER” IS А FAST- 
PACED GAME THAT WILL INVOLVE 

YOU AND YOUR COMPUTER. 

AFTER READING THE INSTRUCTIONS 
AND PRESSING ENTER YOU WILL 

SEE TWO BLOCKS. WITHIN THESE 
BLOCKS WILL BE NUMBERS (THE TOP 
BLOCK IS YOURS—THE BOTTOM, THE 
COMPUTER'S). WHAT YOU MUST DO IS 
MATCH THE COMPUTERS NUMBERS TO 
GAIN POINTS (50 POINTS PER MATCH). 


PRESS ENTER? 
FOR INSTANCE, WHEN THE COMPUTER 


PRINTS ‘ENTER NUMBER’ YOU MUST 
ENTER A NUMBER GREATER THAN OR 
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Set 
variables 


Output 


playing field 


A>=1 and 
A<=3 


DD=DD+1 


Yes 


Play again 


No 


STOP 


Flowchart for Keep Out of the Gutter 


143 


EQUAL TO 4, OR LESS THAN OR EQUAL TO 9 
(PRESS ENTER INSTEAD OF A NUMBER. 
TO SEE TOTAL SCORES & ROUNDS). 

IF YOU ENTER A 5, THE BLOCKS WILL 
‘SCROLL’ UPWARD TO TWO NEW BLOCKS 
YOUR NUMBERS WILL BE 1,2,3,4,5. 

IF YOU MATCH THE COMPUTER YOU'LL 
GET 50 POINTS. IF THE COMPUTER 
MATCHES YOU, YOU'LL BE PUT INTO 
THE GUTTER. IF AND WHEN YOU END 
IN THE GUTTER, DO NOTHING, THE 
COMPUTER WILL PLAY BY ITSELF 


PRESS ENTER? 


UNTIL IT IS READY TO REMOVE YOU 
FROM THE GUTTER. 

30 ROUNDS IS THE GAME. 

THE PLAYER WITH THE HIGHEST 
SCORE WILL THEN BE DECLARED 
THE WINNER. 
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** ACCUMULATED POINTS ** 
YOURS = 50 

COMPUTERS = 0 

TOTAL ROUNDS PLAYED = 3 
PRESS ENTER TO RESUME? 
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xx ACCUMULATED POINTS ** 
YOURS = 100 
COMPUTERS = 0 
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TOTAL ROUNDS PLAYED = 8 
PRESS ENTER TO RESUME? 


ENTER NUMBER? 


///// STOP ///// 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM KEEP OUT OF THE GUTTER 

30 CLSIIF RT=1 THEN 300 

40 PRINT TAB(15);"+ KEEP OUT OF THE GUTTER +" 

30 PRINT 

60 PRINT'INSTRUCTIONS ARE AS FOLLOWS: 

70 PRINT"'KEEP QUT OF THE GUTTER' IS À FAST" 

80 PRINT"PACED GAME THAT WILL INVOLVE" 

90 PRINT"YOU AND YOUR COMPUTER." 

100 PRINT'AFTER READING THE INSTRUCTIONS" 

103 PRINT'AND PRESSING ENTER YOU WILL" 

110 PRINT"SEE TWO BLOCKS. WITHIN THESE" 

115 PRINT"BLOCKS WILL BE NUMBERS (THE TOP" 

120 PRINT'BLOCK I5 YOUR'S - THE BOTTOM, THE 
COMPU-" 

125 PRINT'TER'S), WHAT YOU MUST DO IS MATCH" 

130 PRINT'THE COMPUTER'S NUMBERS TO GAIN" 

135 PRINT"POINTS (50 POINTS PER MATCH)" 

140 INPUT'PRESS ENTER";X X 

145 CLS 

150 PRINT"FOR INSTANCE, ИНЕМ THE COMPUTER" 

155 PRINT"PRINTS ‘ENTER NUMBER’ YOU MUST" 
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160 PRINT'ENTER A NUMBER GREATER THAN OR 
EQUAL" 

165 PRINT'TO 4 OR LESS THAN OR EQUAL TO 9" 

170 PRINT'(PRESS ENTER INSTEAD OF A NUMBER" 

173 PRINT'TO SEE TOTAL SCORES & ROUNDS)." 

1. PRINT"IF YOU ENTER А 5, THE BLOCKS WILL" 
Sa PRINT'’SCROLL’ UPWARD TO TWO NEW BLOCKS" 

ve PRINT"YOUR NUMBER'S WILL BE 1,2,2,4,5," 

175 PRINT"IF YOU MATCH THE COMPUTER YOU'LL" 

200 PRINT"GET 50 POINTS, IF THE COMPUTER" 

202 PRINT'MATCHES YOU, YOU'LL BE PUT INTO" 

210 PRINT"THE GUTTER. IF AND WHEN YOU END" 

215 PRINT"IN THE GUTTER, DO NOTHING, THE" 

220 PRINT'COMPUTER WILL PLAY BY ITSELF" 

222 INPUT'PRESS ENTER";X X:iCLS 

229 PRINT'UNTIL IT IS READY TO REMOVE YOU" 

230 PRINT'FROM THE GUTTER." 

239 PRINT"30 ROUNDS IS THE GAME." 

240 PRINT'THE PLAYER WITH THE HIGHEST" 


245 PRINT"SCORE WILL BE DECLARED" 
250 PRINT'THE WINNER."iIPRINT 
255 INPUT"PRESS ENTER NOW TO START" ;XX 


260 CLS 
300 Q$-CHR$(45) 
310 W$zCHR$(^1) 
320 ПП-1%-1?А-4 
400 REM IF YOU FIND IT DIFFICULT 
410 REM TO GAIN POINTS REMEMBER 
470 REM THIS; 
430 REM IF THE COMPUTER’S NUMBERS 
440 REM TURN UP 3,4,5,5,7 THE FIRST 
450 REM TIME AND 7,3,4,5,4 THE 
460 REM SECOND TIME, YOU'LL KNOW THAT 
470 REM THE THIRD TIME IT WILL 
430 REM BE 1,2,3,4,5. IF YOU CAN'T FIGURE 
450 REM QUT WHAT TO ENTER TO MATCH 
495 REM AFTER THAT...TRY ANOTHER GAME ll 
200 REM PRINT PLAYING FIELD 
2093 Р=(А-9) 
210 FOR I=i T020 
220 PRINT ОФИМЕХТІРБІМТ 
230 FOR I-ITOSIPRINT W$} 
940 Р=р+і 
945 PRINT TAB(S)P; 
590 PRINT TABGONWS; 
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560 РБІМТІМЕХТ 

570 FOR I-1TO20 

580 PRINT ОФИМЕХТ 

585 IF TR=1 AND FG<>0 THEN X=1:GOTO900 
590 XzX*1!IF X22 THEN 600 

595 PRINT:GOTO1300 

600 AS=INKEYSiIF А%-"" THEN 600 

620 A=VAL(A$) 

530 REM USER INPUT ENOUGH ? 

640 IF A>=1 AND A<=3 THEN 600 

650 IF A=0 THEN 700 

660 PRINT 

670 X20:1DD2DD-*1:IF DD>=31 THEN 820 
680 IF A=0 A=4 

590 U=A:GOTOS00 

700 CLS 

710 PRINT СНЕФ(23) 

720 PRINT"## ACCUMULATED POINTS ##" 
730 PRINT 

740 PRINT"YOURS ="3T1 

750 PRINT'COMPUTER'S z"jTZ 

760 PRINT 

770 PRINT"TOTAL ROUNDS PLAYED =";DD 
780 PRINT:INPUT"PRESS ENTER TO RESUME'TXS 
790 CLS 

S00 IF DD>=31 THEN 820 

$10 GOTO&40 

320 РБІКТІРБІМТ 

825 PRINT'END OF GAME RUN..." 


2a 
8 
3 


40 PRINT"YQU HAVE LOST TO" 

845 PRINT"YOUR COMPUTER..." i:GOTO880 
850 PRINT"EVERYTHING TURNED QUT EQUAL." 
655 PRINT"A TIE WITH YOUR COMPUTER." 
840 GOTOSSO 

845 PRINT"VERY WELL, YOU HAVE BEAT" 
870 PRINT"YOUR COMPUTER, THIS TIME." 
S80 PRINT'FINAL SCORE, YOURS =";T1 

885 PRINT"COMPUTER’S =";T2 

590 PRINT:GOTO1240 

900 REM COMPUTER’S PLAY 

710 PRINT 

920 IF G=1 THEN 1040 
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930 I-RND(9XNIF Іс-3 THEN 930 
940 IF J>=11 THEN J=1 

750 A(T )=I 

360 С=А(Ј) 

745 IF ABS(U-C)=0 THEN 1200 

970 J=J+ltIF J>=3 THEN 990 

930 A=CiGOTO1100 

990 CITÀ(J-ŻICZSA(J-1) 

1000 C3zABS(C1-C2) 

1010 IF C3&-1 THEN 1030 

1020 GOTO?80 

1030 CzCZ 

1040 IF С<-5 THEN 1080 

1050 C=C-1 

1040 G=1 

1070 AZCiGOTOSOO0 

1080 б-0%7-1 

1090 GOTO920 

1100 REM FOR DOUBLE 

1110 IF U<=0 THEN 1130 

1120 IF INT(A/U)+7)=A THEN 1140 
1130 GOTOSO0 

1140 T2=T2+50 

1150 IF T2>=A THEN 1170 

1160 TZ=INT(A/U)#50 

1170 TR=1 

1180 GOTO1300 

1200 REM USER POINTS 

1205 IF FG<>0 THEN 1220 

1210 T1i=T1+50 

1220 IF TR=1 TR=0:FG=0:GOTO1360 
1230 СОТО970 

1240 INPUT"PLAY АСАІМ";Т% 

1250 IF LEFTS#(T$,1)="N" THEN 1270 
1260 T1=0;TZ=O;3RT=1;GOTO10 

1270 PRINT"<<< END OF GAME >>>" 
1280 END 

1500 REM USER TO REMAIN IN 
1310 REM GUTTER UNTIL COUNTER 
1320 REM FG REACHES 4 OR BETTER 
1325 IF FG»24 THEN TR=0:FG=0 
1330 IF TR=0 THEN 1360 

1340 PRINT TAB(S)3"* GUTTER ғ; 
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1350 Ғо-ЕС%1.5:РБІМТ:ІСОТО500 


1360 PRINT TAB(3);"ENTER NUMBER ?"j 
1370 СОТО900 
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(MOTION) SENSE OF DIRECTION 


Walnut 
Drive 


S, Second 
Street 


Second 
Street 


Laziview 
Drive Maple 
Street 
Pine 
Street 


Do you have a problem getting through a certain town? You will probably still 
have that same problem after you finish this game. Really though, the 
computer will take you into a town for a simple bite to eat. All you need do to 
get out of that town and back on your journey is to tell the computer every 
street you went on, in reverse order! Hope you don’t run out of gas!!! 


East-West 
Main St. 


Sample Run 


x SENSE OF DIRECTION $ 
INSTRUCTIONS REQUIRED? YES 


JUST ABOUT EVERYONE HAS HAD THE 
OPPORTUNITY TO TRAVEL INTO A 

NEW TOWN, AT ONE TIME OR ANOTHER. 
AND A FEW OF THESE PEOPLE FIND 
THEMSELVES LOST TRYING TO 

LOCATE A CERTAIN LANDMARK OR 
HIGHWAY. 

THAT IS WHAT THIS PROGRAM IS 

ALL ABOUT. THE COMPUTER WILL 

TEST YOUR SENSE OF DIRECTION. 


:: ENTER ::? 


THE COMPUTER WILL TAKE YOU INTO 
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START 


Clear 
memory space 


Output 
message 
Continue 

travel 


Yes 


Output 
instructions 


m 


Read 
names 


Set 
variables 


Begin 
test 


Get 
street name 


Print statement 
street name 


Stop /no gas 
Explain 
entire route 
G$=U$ di 


Closing 
message 


MO mn 


2 

о 
< 
(D 
o 

li 


Final 
message 


STOP 


Flowchart for (Motion) Sense of Direction 
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A TOWN, AND ‘DRIVE’ YOU AROUND 
AWHILE, NAMING THE DIFFERENT 
STREETS AS IT GOES. IT WILL 

THEN ASK YOU TO INPUT THOSE 
STREET NAMES BACKWARD TO END UP 
BACK WHERE YOU STARTED. 

YOU ALSO MIGHT BE IN FOR A FEW 
DIFFERENT SURPRISES. 


PRESS ENTER NOW TO BEGIN 
YOUR TEST? 


YOU ARE TRAVELING DOWN 
HIGHWAY 27. WITHIN MINUTES YOU 
WILL COME UPON EAST MAIN STREET. 


YOU WILL TRAVEL DOWN THIS STREET 
FOR AT LEAST 3 BLOCKS. THEN 
YOU WILL COME ONTO THIRD STREET. 


THIS IS A TRICKY NAME, SO DON’T 
GET IT MIXED UP WITH THE 
NEXT STREET NAME. 


WITHIN MINUTES YOU WILL ARRIVE 
AT NORTH FIRST STREET. 


THIS STREET WAS RECENTLY REPAVED 
SO IT SHOULDN’T CAUSE TOO MUCH 
TROUBLE FOR YOUR CAR. 


YOU ARE NOW COMING UPON A GAS 
STATION AT EAST WESTCHESTER STREET. 


REMEMBER IT IF YOU NEED GAS OR 
REPAIRS, IT’S THE ONLY ONE 
IN THIS TOWN. 


GETTING CLOSE TO THE FINAL 
STRETCH, HERE COMES SOUTH SECOND STREET. 


THIS STREET HAS A VERY SCENIC 
VIEW RIGHT AROUND CHRISTMAS TIME. 
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DRIVE WEST UNTIL YOU REACH 
DIAMOND STREET. 


THERE YOU CAN BUY THE FAMILY 
A GOOD LUNCH, TAKE A LONG 
BREAK AND RETURN TO THE 
HIGHWAY TO CONTINUE YOUR TRIP. 


PRESS ENTER AFTER YOU HAVE 
FINISHED YOUR LUNCH? 


FINISHED ALREADY??? 


WE ARE NOW READY TO RETURN 
TO HIGHWAY 27. YOU MUST 

ENTER ALL OF THE STREET NAMES 
IN REVERSE ORDER. 

BEGIN AT THE STREET WHERE YOU 
HAD LUNCH, THEN WORK BACK TO 
THE HIGHWAY. YOU DON’T HAVE 
TO ENTER THE WORD ‘STREET’, 
JUST THE NAME OF IT. 

? DIAMOND STREET 

O.K. CONTINUE YOUR ENTRIES. 

? SOUTH SECOND 

? PINE 

? MAPLE 

? EAST MAIN 

2 WEST MAIN 

WHICH RETURNS US TO HIGHWAY? 27 


YOU HAVE MISSED 5 STREETS. 
FOR A SIMPLE EXPLANATION OF 
YOUR ROUTE...STAND BY. 


YOU STARTED ON EAST MAIN STREET. 

THEN PROCEEDED TO THIRD STREET, 

WHERE YOU CAME UPON NORTH FIRST STREET. 
REMEMBER IT WAS REPAVED ??? 

YOUR 4TH STREET WAS EAST WESTCHESTER STREET. 
(THE GAS STATION ??) 


PRESS ENTER? 
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THE NEXT STREET YOU ENCOUNTERED 
WAS SOUTH SECOND STREET. 

WHERE YOU AND YOUR FAMILY HAD 
LUNCH ON DIAMOND STREET. 

FINALLY, THE HIGHWAY YOU STARTED 
ON AND WANTED TO RETURN TO WAS 
HIGHWAY # 27 


END OF PROGRAM RUN. 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM (MOTION) SENSE OF DIRECTION 
30 CLS;RANDOM:CLEAR 500 

40 PRINT ТАБ(15); 

20 РКІМТ"# SENSE OF DIRECTION x" 

60 PRINT 

70 INPUT'INSTRUCTIONS REQUIRED"; V$ 


80 IF MID$(V$,27,142"E" THEN 320 

70 PRINT'JUST ABOUT EVERYONE HAS HAD THE" 
100 PRINT"OPPORTUNITY TO TRAVEL INTO A" 
110 PRINT"NEW TOWN, AT ONE TIME OR ANOTHER." 
120 PRINT"AND A FEW OF THESE PEOPLE FIND" 
130 PRINT'THEMSELVES LOST TRYING TO" 

140 PRINT'LOCATE A CERTAIN LANDMARK OR" 
150 PRINT"HIGHWAY." 

140 PRINT'THAT IS WHAT THIS PROGRAM IS" 

170 PRINT'ALL ABOUT. THE COMPUTER WILL" 

180 PRINT'TEST YOUR SENSE OF DIRECTION." 

190 PRINTINPUT'"5 ENTER ИҢХ 

200 CLS 

210 PRINT'THE COMPUTER WILL TAKE YOU INTO" 
220 РКІМТ"А TOWN AND ‘DRIVE’ YOU AROUND" 
230 PRINT" AWHILE, NAMING THE DIFFERENT" 
240 PRINT'STREETS AS IT GOES. IT WILL" 

270 PRINT"THEN ASK YOU TO INPUT THOSE" 

2580 PRINT'STREET NAMES BACKWARD TO END UP" 
290 PRINT"BACK WHERE YOU STARTED." 

300 PRINT" YOU ALSO MIGHT BE IN FOR A FEW" 
310 PRINT"DIFFERENT SURPRISES." 
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220 PRINT 

330 PRINT'PRESS ENTER NOW TO BEGIN" 

340 INPUT" YOUR TEST";X 

350 CLS 

360 DIM K(17),L$(17) 

370 REM READ STREET NAMES 

330 FOR Iz1TO17:K(I)-I 

390 READ L$(IXNEXT 

400 5%-"5ТКЕЕТ" 

300 REM BEGIN THE TEST 

310 REM RANDOM SELECT HIGHWAY 

220 REM NUMBER TO START 

240 REM STREET TEST 

330 H=RND(SO) 

360 PRINT"YOU ARE TRAVELLING DOWN" 

370 PRINT"HIGHWAY";H;". WITHIN MINUTES YOU" 
38580 PRINT"WILL COME UPON "j 

390 REM FOR RANDOM STREET NAME 

600 GOSUB4000 

610 L=L+1 

620 PRINT"YOU WILL TRAVEL DOWN THIS STREET" 
630 PRINT'FOR AT LEAST 3 BLOCKS, THEN" 

640 PRINT"YOU WILL COME ONTO "j 

630 GOSUBA4000iL-2L*1 

660 PRINT"THIS 15 A TRICKY NAME, SO DON'T" 
670 PRINT"GET IT MIXED UP WITH THE" 

680 PRINT'NEXT STREET МАМЕ!" 

590 GOSUB4090 

700 PRINT"WITHIN MINUTES YOU WILL ARRIVE" 
710 PRINT'AT "; 

720 GOSUB40OOiL-LHi 

730 PRINT'THIS STREET WAS RECENTLV REPAVED' 
740 PRINT"SO IT SHOULDN'T CAUSE TO MUCH" 
750 PRINT'TROUBLE FOR YOUR CAR." 

760 GOSUB4090 

770 PRINT"YOU ARE NOW COMING UPON A GAS" 
780 PRINT'STATION AT "j 

790 GOSUB40001U$-JS(LIIL-LHI 

500 PRINT'REMEMBER IT IF YOU NEED GAS OR" 
810 PRINT"REPAIRS, IT’S THE ONLY ONE" 

820 PRINT'IN THIS TOWN." 

830 GOSUB4090 

840 PRINT"GETTING CLOSE TO THE FINAL" 

850 PRINT'STRETCH, HERE COMES "; 
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840 GOSUB4000/M$=J $(L)}L=L+1 

870 PRINT"THIS STREET HAS A VERY SCENIC" 
880 PRINT'VIEW RIGHT AROUND CHRISTMAS TIME." 
890 GOSUB4090:GOTO4150 

900 INPUT"WHY ARE YOU STOPPING";X$ 

910 FOR Y=1TOLEN(X$) 

920 IF MIDS(X$,Y,3)="GAS" THEN 940 

930 NEXTSPRINT" YOU ARE OUT OF GAS." 

935 PRINT"WHICH STREET WAS THAT SMALL" 
938 СОТО960 

940 PRINT"THAT’S RIGHT, YOU ARE OUT" 

950 PRINT"OF GAS. WHICH STREET WAS THE" 
960 INPUT"GAS STATION LOCATED ON";G$ 

970 IF G$<>U$ THEN 1010 

980 PRINT"VERY WELL...YOU ARE PAYING" 

390 PRINT"SOME ATTENTION." 

1000 GOTO1050 

1010 PRINT"NO "0%; "j5$;" IS NOT THE" 

1020 PRINT'LOCATION OF THE GAS STATION." 
1030 PRINT"YOU ARE STRANDED BUDDY '''" 
1040 GOTO1340 

1050 J$(L)EUSIL-ZL*1:J7$(L)2M$:1GOSUBA090 

1060 PRINT'AFTER REFUELING ОМ "0% 

1065 PRINT"GET BACK ON "}M$;" AND" 

1070 PRINT"DRIVE WEST UNTIL YOU REACH" 
1080 L=L+1;GOSUB4000;K=L 

1070 PRINT"THERE YOU CAN BUY THE FAMILY" 
1100 PRINT"A GOOD LUNCH, TAKE A LONG" 
1110 PRINT"BREAK AND RETURN TO THE" 

1120 PRINT"HIGHWAY TO CONTINUE YOUR TRIP." 
1130 PRINT 

1140 PRINT"PRESS ENTER AFTER YOU HAVE" 
1150 INPUT"FINISHED YOUR LUNCH";X 

1160 PRINT'FINISHED ALREADY ???" 

1170 GOSUB40%0 

1180 GOSUB4090 

1190 PRINT'WE ARE NOW READY TO RETURN" 
1200 PRINT"TO НІСНИАҮ";Н;", YOU MUST" 

1210 PRINT'ENTER ALL OF THE STREET NAMES" 
1220 PRINT"IN REVERSE ORDER." 

1230 PRINT"BEGIN AT THE STREET WHERE YOU" 
1240 PRINT"HAD LUNCH, THEN WORK BACK TO" 
1250 PRINT'THE HIGHWAY, YOU DON'T HAVE" 
1260 PRINT"TO ENTER THE WORD 'STREET'," 
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1270 PRINT" JUST THE NAME OF IT." 

1280 REM REVERSE ORDER 

1290 REM OF STREETS 

1300 INPUT T$ 

1310 IF T$<>J$(K) THEN TX=TX+1 

1320 IF F=1 THEN 1340 

1330 GOTO1380 

1340 PRINT'ENTER THE STREET YOU WERE 
1350 PRINT"ON WHEN YOU RAN OUT OF GAS." 
1360 INPUT T$ 

1370 IF Т%<>М% THEN TX-TX*1 

1380 GOSUBA130!K-K-1 

1390 PRINT"O.K. CONTINUE YOUR ENTRYS." 
1400 IF K--1 THEN 1450 

1410 INPUT T$ 

1420 IF T$<>J$(K) THEN TX=TX+1 

1430 GOSUB4130 

1440 GOTO1400 

1450 PRINT 

1460 INPUT"WHICH RETURNS US TO HIGHWAY";HH 
1470 IF НН<>Н THEN 1490 

1480 GOTO1520 

1490 PRINT" YOU ARE ON THE WRONG HIGHWAY !!" 
1500 PRINT'KEEP GOING. I'LL GET OFF HERE." 
1310 GOTO1840 

1520 IF TX=0 THEN 1800 

1530 PRINT"YOU HAVE MISSED"jTX;"STREETS." 
1540 PRINT"FOR A SIMPLE EXPLANATION OF" 
1550 PRINT" YOUR ROUTE. „STAND BY." 

1560 GOSUB4090 

1570 U=0 

1580 PRINT" YOU STARTED ON "; 

1585 GOSUB4200 

1590 PRINT" THEN PROCEEDED TO "j 

1595 GOSUB4200 

1400 PRINT"WHERE YOU CAME UPON "; 

1405 GOSUB4200 

1610 PRINT'REMEMBER IT WAS REPAVED 2???" 
1420 PRINT" YOUR 4TH STREET WAS "; 

1430 GOSUB4200 

1640 PRINT'(THE GAS STATION ??)" 

1645 INPUT'PRESS ENTER"; XiCLS 

1650 PRINT"THE NEXT STREET YOU ENCOUNTERED" 
1660 PRINT"WAS "};GOSUB4200 
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1670 IF F=0 THEN GOSUBA4210:GOTO1720 

1630 PRINT"YOU RAN OUT OF GAS THERE, AND" 
1690 PRINT'HAD TO GO BACK TO ";;GOSUB4200 
1700 PRINT"AFTER FILLING UP, YOU GOT BACK" 
1710 PRINT"ONTO ";;GOSUB4200 

1720 PRINT" YOU AND YOUR FAMILY HAD" 

1730 PRINT'LUNCH ON "};GOSUB4200 

1740 PRINT'FINALLV, THE HIGHWAY YOU STARTED" 
1750 PRINT"ON AND WANTED TO RETURN TO WAS?" 
1760 PRINT'HIGHWAY #";Н 

1770 PRINT‘PRINT"SORRY esses" 

1780 GOTO1840 

1500 REM ALL CORRECT 

1810 PRINT"CONGRATULATIONS !!!" 

1520 PRINT"YOU HAVE ENTERED ALL STREETS" 
1830 PRINT"IN THEIR PROPER ORDER..." 

1840 PRINT 

1850 PRINT'END OF PROGRAM RUN." 

1840 END 

4000 REM SELECT STREETS 

4010 REM RANDOM FUNCTION 

4020 Q=RND(17) 

4030 IF K(Q)-0 THEN 4020 

4040 J$(L)-L$(G) 

4050 K(Q)=0 

4060 REM STREET TITLES EXHAUSTED 

4070 REM WHERE 12=17 

4080 PRINT J$(L);" "ажы 

4070 FOR TT=1TOZ000;NEXT 

4100 FOR ТТ-1Т06 

4110 РБІМТІМЕХТ 

4120 RETURN 

41:30 K-K-1 

4140 RETURN 

4150 REM STOP, NO GAS 7 

4160 DzRND(10) 

4170 IF INT(D-L)+INT(D-L-I))=L THEN 4190 
4150 F-1:G0TO?00 

4190 GOSUBA4 100: PRINTiIPRINT;:GOTO1070 

4200 PRINT J$(U»" "j5$j"," 

4210 U-U*1 

4220 RETURN 

3000 DATA SOUTH SECOND,MAIN,EAST MAIN 
3010 DATA TURTLE DRIVE,EAST WESTCHESTER 
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3020 DATA NORTH FIRST,NORTH THIRD,THIRD 
2030 DATA MAPLE,PINE,RIDDLE,UPPER COAST 


3040 DATA LOWER COAST,CLEARVIEW 
5050 DATA DIAMOND,RUBY,JADE 
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Skill and Intelligence Games 


CUBE 


Put your thinking cap on, 'cause you'll need it with this game! You'll be 
rearranging nine randomly placed letters in a cube. The object is to get them 
in alphabetical order in the fewest number of attempts. Caution! The com- 
puter has determined that this game is habit forming ..... 


Sample Run 


((( CUBE ))) 
INSTRUCTIONS? YES 


THIS IS THE GAME OF CUBE. 

THE CUBE HAS 9 SECTIONS. WITHIN 
EACH SECTION IS A LETTER. YOU 
MUST PLACE EACH LETTER IN IT’S 
PROPER AREA (THE COMPUTER WILL 
SHOW YOU HOW THE CUBE WILL 
LOOK WHEN FINISHED). 
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START 


Yes 


Print 
instructions 


Set 
strings 
Output 

graphics 

Select RND 
letters 


Print letters 
in cube 


Input 
letter change 


<> 


Input 
“with letter" 


Interchange 
letter 


Illegal 
command 


AT=AT+1 


Flowchart for Cube 


No 


T$-H$ 


STOP 
Yes 
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IF YOU WANT A LETTER INA 
CERTAIN PLACE, CHOOSE THE 
LETTER THAT IS BEFORE THE 
SPACE YOU WANT, EXAMPLE: 


PRESS ENTER? 


THE CUBE RANDOMLY PLACES THE 
LETTERS, THEY TURN OUT LIKE: 
D G C (TOP) B E F (MIDDLE) 

AND I AH ON THE BOTTOM. 

YOU WANT THE ‘A’ WHERE THE 'D' 
IS, SO YOU'LL RESPOND THIS WAY: 
CHANGE LETTER? G 

WITH LETTER? A 

THIS WILL PLACE THE ‘A’ WHERE 
THE ‘D’ IS AND PUT THE ‘G’ 
WHERE THE ‘A’ WAS, CONFUSED? 
YOU'LL SOON CATCH ON ... 


PRESS ENTER TO START? 


This is how the cube should Change letter? 
look when correctly finished 


Press enter for 1st attempt? 


Program Listing 


10 REM PROGRAM TITLE: CUBE 
20 CLSICLEAR 300;L$=STRINGS$(18,45) 


30 J=UK=13;RANDOM 


30 REM 
60 PRINT TAB)" CUBE ))" 
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70 PRINT 

S0 INPUT'INSTRUCTIONS'I$ 

90 IF I$«2"YES" THEN 240 

100 PRINT'THIS IS THE GAME OF CUBE." 

105 PRINT'THE CUBE HAS 9 SECTIONS, WITHIN" 
110 PRINT"EACH SECTION 15 A LETTER. YOU" 
115 PRINT'MUST PLACE EACH LETTER IN IT'S" 
120 PRINT"PROPER AREA (THE COMPUTER WILL" 
125 PRINT'SHOW YOU HOW THE CUBE WILL" 
130 PRINT'LOOK WHEN FINISHED)" 

1:33 PRINT"IF YOU WANT A LETTER IN A" 

140 PRINT"CERTAIN PLACE, CHOOSE THE" 

145 PRINT'LETTER THAT IS BEFORE THE" 

150 PRINT"SPACE YOU WANT, EXAMPLE?" 

133 PRINT 

160 INPUT"PRESS ENTER";I$ 

165 CLS 

170 PRINT'THE CUBE RANDOMLY PLACES THE" 
173 PRINT"LETTERS, THEY TURN OUT LIKE?" 
180 PRINT"D G C (TOP) ВЕР (MIDDLE)" 

155 PRINT'ANDIAH ON THE BOTTOM." 

190 PRINT"YOU WANT THE “А” WHERE THE 'D'" 


195 PRINT"IS, 50 YOU'LL RESPOND THIS WAY" 
200 PRINT'CHANGE LETTER? G" 

202 PRINT"WITH LETTER* A" 

210 PRINT'THIS WILL PLACE THE ʻA’ WHERE" 


215 PRINT"THE ‘D’ IS AND PUT THE 'G^" 
220 PRINT"WHERE THE ‘A’ WAS, CONFUSED ?" 
225 PRINT"YOU'LL SOON CATCH ON..." 
230 PRINT 

235 INPUT"PRESS ENTER TO 5ТАРТ";1% 
240 CLS‘H$="ABCDEFGHI" 

290 FOR I=1 TO? 

260 READ A(ID!NEXT 

270 REM LETTERS 

220 U-6SiIFOR I21TO91U(D7I 

290 A$(ID)ZCHRS$(UXSUZU*1:NEXT 

300 REM THE CUBE 

303 IF H=1 GOSUBA10 

310 FOR X-40TOSO 

320 SET(X,JISSET(X:K) 

330 NEXT 

340 REM FINE LINES 

390 PRINT@M,L$; 
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360 PRINT@M1,L$; 

370 FOR Y=J+1TOK-1 

380 SET(40,Y SET(S5,Y) 

390 БЕТ(66,Ү5ЕТ(60,Ү) 

395 МЕХТЯҒ UE-0 GOTO1200 

400 IF R<>1 GOSUBS00 

405 GOSUBA10:GOTO420 

410 J=K+4:K=K+21 

415 M=M1+320;M1=M+128;RETURN 
20 СОТО600 

430 REM CARRIAGE RETURNS 

440 РКІМТ(8960, 

450 FOR P=1TO6 

460 РКІМТІМЕХТ 

470 К=0:Н=1:7Ј=1:К=18 

480 М=149:М1=277 

485 IF RR=1 GOSUBS00:GOTO600 

490 GOTO300 

300 REM PRINT LETTERS 

305 IF JL=1 THEN 560 

910 У=] 

920 I-RNDO) 

330 IF U(I)=0 THEN 520 

340 W$(V)SAS() 

245 IF W$(1)="A" THEN 520 

550 IF V<>9 THEN 590 

360 FOR I-1TO9 

565 PRINTQGA(ONWS(G) 

370 UGD-ISNEXT 

580 RR=0;:R=1;RETURN 

590 U(I)20:VZV41:GOTOS20 

600 REM INPUT LETTER CHANGE 

605 IF RR=1 GOTO430 

610 GOTO?00 

615 PRINT@M2,; 

620 INPUT"CHANGE LETTER" ;X$ 

625 PRINT@M2+64,;;GOTO700 
30 INPUT"WITH LETTER"; Y$ 

635 IF LEN(Y$)<>1 THEN 810 

640 IF Ү%-Х% THEN 810 

645 PRINT@M2," 

650 REM LETTER CHANGE 

650 FOR I=1TO? 

670 IF Y$-W$(I) THEN W$(D-X$1W$(MM)-Y$ 
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680 NEXT 

690 RRzZ1NL-1:GOTO750 

700 REM LETTER PLACEMENT 

702 IF LEN(X$)<>1 THEN 810 

710 FOR I=1TO? 

720 IF X$-W$(D THEN MM=I 

730 NEXT 

740 СОТО630 

730 REM LETTER MOVEMENT 

760 IF ММ<=1 THEN 310 

770 KS-WS(MM-1) 

750 W$MM-1):Y$1W$(MM)-K$ 

790 T$-T$4Y$ 

200 GTTOSQO 

310 REM ILLEGAL DIRECT 

820 PRINT@M2;; 

820 PRINT"# ILLEGAL COMMAND ғ"; 

840 FOR ТІ=іТОі200:МЕХТ 

850 PRINT@M?2," x 

660 GOTO615 

900 REM FIGURED OUT ? 

903 T$-"" 

310 FOR 1-1Т09 

920 TS=TS+WS(IN NEXT 

730 IF T$-H$ THEN 1000 

940 АТ-АТ%1 

950 PRINT@45,"ATTEMPTS ="jAT; 

960 GOTO615 

1000 REM COMPLETED 

1005 РКІМТІРБІМТІРКІМТ 

1010 IF AT<=15 THEN 1080 

1020 IF AT>=15 AND AT<=25 THEN 1110 
1030 IF АТ>-25 AND AT<=45 THEN 1150 
1040 PRINT"DID YOU READ ALL THE" 
1050 PRINT'INSTRUCTIONS ?? WITH "jAT 
1060 PRINT"ATTEMPTS, YOU COULDN'T HAVE !!" 
1070 GOTO1180 

1080 PRINT'THAT IS GREAT!!! YOU SOLVED IT IN" 
1090 PRINT"ONLY";AT;"ATTEMPTS l 
1100 GOTO1180 

1110 PRINT AT;"ATTEMPTS AREN'T BAD, BUT" 
1120 PRINT" YOU PROBABLY COULD IMPROVE" 
1130 PRINT"A LITTLE. RIGHT 7?" | 

1140 GOTO1180 


167 


1150 PRINT" YOU’RE REALLY GETTING INTO THE" 
1160 PRINT"HIGH SCORE AREA WITH";AT;"ATTEMPTS," 
1170 PRINT'THAT IS JUST TOO MANY'" 

1175 PRINT 

1180 PRINT'END OF PROGRAM RUN..." 

1190 END 

1200 REM ORIGINAL WORK 

1210 FOR І-1ТО9 

1220 PRINT@A(I),AS(T); 

1230 NEXT 

1240 PRINT@M2-4,; 

1250 PRINT"THIS IS HOW THE CUBE SHOULD" 

1260 PRINT@M2+60,; 

1270 PRINT'LOOK WHEN CORRECTELY FINISHED." 
1280 PRINT@M2+124,; 

1290 INPUT"PRESS ENTER TO START ";D$ 

1300 CLSSUE-1:G0TO500 

3000 DATA 88,94,100,216,222 

2010 DATA 223,344,350,356 
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HORSESHOES 


So Grandpa can pitch a horseshoe like no other? Let him try computer 
horseshoes, and then see if he is still bragging. Each pitch will be controlled 
by a force value. These force values are “S’”—for a soft throw, 'M''—for a 
medium throw, and “H” for a hard throw. After you input a force value, the 
computer will take over (naturally). Pitch a shoe!! 


Sample Run 


((( HORSESHOES ))) 


PRINT INSTRUCTIONS? YES. 

SURE YOU'VE TOSSED HORSESHOES 
BUT, HAVE YOU TOSSED ANY 
COMPUTER HORSESHOES LATELY ?? 
AT OR ABOUT THE TIME THE HORSE- 
SHOES REACH THE POST THE 
COMPUTER WILL USE THE RANDOM 
FUNCTION TO FINISH THE TOSS. 

TO SCORE, THE HORSESHOE MUST 
TWIRL AROUND AND STAY CLOSE TO 
THE POST. 


PRESS ENTER? 


ARE YOU CHALLENGING A FRIEND? NO 
YOUR FIRST NAME? DAVE 
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START 


Instructions >> 


Yes 


List 
instructions 


ХФ-“МО” > 


Yes 


о a 
Bi 
оо 
oz 


v 
| 
— 


i 
o 
= 
Ф 


AA$="‘COMPUTER” kw 
instructions <»; 


Ѕеї 
playing field Add to 
score amt. 


Select 
player e 
Output 
in 
Force <> 
bii 
Yes 
Calculate Final 
amount message 


Flowchart for Horseshoes 
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YOU'LL BE PLAYING AGAINST 
YOUR COMPUTER 


THROWING A HORSESHOE WILL BE 
QUITE SIMPLE. YOU'LL INPUT 

A ‘FORCE VALUE’ (USING INKEY$). 

THIS ‘FORCE VALUE’ WILL 

DETERMINE HOW FAR THE HORSESHOE 
WILL TRAVEL. 

‘FORCE VALUES’ ARE: 

'S'...FOR A SOFT THROW. 

'M'...FOR A MEDIUM THROW. 

'H'...FOR A HARD THROW. 

THE COMPUTER WILL USE THE 
LETTER YOU ENTERED TO CALCULATE THE 
DISTANCE THE HORSESHOE WILL 
TRAVEL. SO LET THE HORSESHOES... 


СССССССССССССССССССССССССССССССССССССССССССССССССС ЕТ Ү 


Force value... (S, M, Н) 


Dave’s score = 0 Dave’s throw 


Computer’s score = 0 


Program Listing 


10 REM PROGRAM TITLE: HORSESHOES 
20 CLS;RANDOM 

30 PRINT TAB(10);"((( HORSESHOES )))" 
40 PRINT 

20 INPUT"PRINT INSTRUCTIONS";X$ 
40 IF X$="NO" THEN G-1:GOTOZO0 
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70 PRINT 

30 PRINT"SURE YOU'VE TOSSED HORSESHOES" 
90 PRINT'BUT, HAVE YOU TOSSED ANY" 

100 PRINT'COMPUTER HORSESHOES LATELY ??" 
110 PRINT"ON OR ABOUT THE TIME THE HORSE-" 
120 PRINT"SHOES REACH THE POST THE" 

130 PRINT"COMPUTER WILL USE THE RANDOM" 
140 PRINT'FUNCTION TO FINISH THE TOSS." 

130 PRINT"TO SCORE, THE HORSESHOE MUST" 
i40 PRINT'TWIRL AROUND AND STAY CLOSE TO" 
170 PRINT'THE POST," 

180 PRINT 

190 INPUT"PRESS ENTER" ;X$ 

200 CLS 

210 PRINT'ARE YOU CHALLENGING À FRIEND"; 
220 INPUT X$ 

230 IF X$="NO" OR X$="N" THEN P-1 

240 INPUT" YOUR FIRST NAME"jA$ 

250 IF P=1 АА$="СОМРУТЕВ":СОТО280 

260 INPUT" YOUR FRIENDS FIRST NAME";AA$ 
2/0 GOTO300 

280 PRINT"YOU’LL BE PLAYING AGAINST" 

290 PRINT" YOUR "jAA$;" sweet 

300 PRINTHIF G=1 G20:GOTO480 

305 FOR I-1TO1000:NEXT 

310 PRINT'THROWING A HORSESHOE WILL BE" 
320 PRINT"QUITE SIMPLE, YOU’LL INPUT" 

330 PRINT"A ‘FORCE VALUE’ (USING INKEY$)." 
340 PRINT"THIS ‘FORCE VALUE’ WILL" 

390 PRINT'DETERMINE HOW FAR THE HORSESHOE" 
360 PRINT"WILL TRAVEL." 

370 PRINT"'FORCE VALUESS' ARE!" 

380 PRINT'"'S',,FOR A SOFT THROW," 

390 PRINT"’M’...FOR A MEDIUM THROW." 

400 PRINT"’H’...FOR A HARD THROW," 

410 PRINT"THE COMPUTER WILL USE THE" 

420 PRINT"LETTER YOU ENTERED TO CALCULATE THE" 
430 PRINT"DISTANCE THE HORSESHOE WILL" 
432 PRINT"TRAVEL. SO LET THE HORSESHOES..." 
433 GOTO480 

440 F$-"FLY"IF1$-CHR$(40) 

450 FOR I=1TO10;FOR J=1TOS 

460 PRINT F1$5NEXT 7,1 

470 PRINT F$iRETURN 
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480 PRINT!A(1)22701A(2)2715 

490 INPUT"PRESS ENTER"}X$iCLS 
495 GOSUB440 

500 REM PLAYING AREA 

505 FOR 1=1TO1000:NEXT 

510 FOR Х-0Т0127 

520 БЕТ(Х,ОМБЕТ(Х,47) 

530 SET(X,17)SET(X,30) 

540 NEXT 

550 FOR Ү-17046 

560 SET(,YXSET( 27, Y) 

570 NEXT 

580 REM POSTS 

585 J1-817229173238174-39175-1001757101 
590 FOR X-J5TOJ6 

500 SET(X,JINSET(X,J2) 

610 SETOGJ3HSETOGJAHNEXT 

615 IF PL=1 OR PL-2 THEN 1070 
420 GOSUB2000 

430 REM WHO GOES FIRST ? 

540 I=RND(Z) 

50 PL-I 

650 PRINTQ450,A$;"/5 SCORE =";01; 
570 PRINT@514,AA$}"’S SCORE =";02; 
475 IF Q1=10 OR 02-10 THEN 1700 
480 IF PL=1 THEN 720 

490 PRINTG554,AA$;"'5 THROW" 
700 PRINT@490," i 
705 IF P-1 THEN 1600 

710 GOTO740 

720 PRINTG490,A$j''S THROW"; 

730 PRINT@S54," " 
740 PRINTGA(PL) 

750 PRINT"FORCE VALUE?...(5, М, Н)"; 
760 X$=INKEY$ 

770 IF X$="" THEN 760 

775 GOSUB780:GOTO800 

780 PRINT@A(PL),} 

785 IF K=1 K-0fRETURN 

730 PRINT" "j 
795 RETURN 

800 REM USERS THROW 

810 IF X$="$" THEN F2201GOTO830 
815 IF X$="M" THEN F-64:GOTOS30 
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340 G-RND(12) 

850 G=G+F 

860 IF G<=0 G=1 

870 IF G>=100 G=99 

673 GOSUBZ2200 

590 FOR M=YTOY+33RESET(X ,M)NEXT 
090 FOR M=XTOX+3 

900 RESET(M,Y NRESET(M,Y+3);NEXT 
910 IF G>=110 THEN 760 

920 X=X+(G+RND(10)):Z=X 

930 FOR M=YTOY+3iSET(X , M)iNEXT 

940 FOR M=XTOX+3 

950 SET(M,YSET(M, Y+3)}NEXT 

955 IF Z>=100 THEN 980 

950 IF 2<=96 THEN 1100 

270 GOTO1200 

980 K=1:GOSUB780 

985 IF P-i AND PL-2 THEN 1010 

790 PRINT'( SORRY...YOU HAVE OVERSHOT ))"; 
1000 FOR I=1TO1200;NEXT 

1010 GOSUB780 

1020 REM RESET HORSE SHOE 

1030 FOR М-ҮТОҮЯЗБВЕСЕТ(Х,МИМЕХТ 
1040 FOR M=XTOX+3 

1050 RESET(M,YXRESET(M,Y *342NEXT 
1055 IF J=2 J=0iGOTO1220 

1060 GOTOS80 

1070 Jz21:GOTO1470 

1080 GOSUBZ000:GOT0O670 

1100 REM UNDERSHOT 

1110 K21:GOSUB780 

1115 IF Pz1 AND PL=2 THEN 1130 

1120 PRINT"(( SORRY... YOU HAVE UNDERSHOT ))"} 
1130 GOTO1000 

1200 REM GOOD ENOUGH 7 

1210 J=2:GOTO1020 

1220 I-RND(4) 

1225 А=75-3:В=7Ј6+3:С=71:0=72:С1=2:01=14 
1230 IF PL-2 THEN С=7Ј3:0=74:С1=33:01=45 
1235 IF 1=3 OR I=4 THEN 1500 

1240 FOR T=ATOB 
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1245 ON I GOTO 1250,1280 

1250 БЕТ(Т,С-1ЗМЕХТ 

1260 SET(T-1,C)SET(T-8,C) 

1270 GOTO1300 

1280 SET(T,D*1)YNEXT 

1290 SET(T-1,D):SET(T-8,D) 

1300 REM NO SCORE 

1305 REM IF GG=1 THEN FOR UU=1TO150:NEXT 
1310 FOR T=ATOB 

1320 ON I GOTO 1330,1370 

1330 КЕСЕТ(Т,С-1ЗМЕХТ 

1340 RESET(T-1,CX RESET(T-8,C) 

1350 IF C<>C1 THEN C2C-1:60TO1410 
1360 GOTO1400 

1370 RESET(T,D*1Y NEXT 

1380 RESET(T-1,DYRESET(T-8,D) 

1390 IF DX2D1 THEN D=D+1:GOTO1410 
1400 GG20:GOTO1430 

1410 GG=1;FOR UU-1TO200:NEXT 
1420 А=А+1:В=В+1:СОТО1240 

1430 K=1:GOSUB780 

1435 IF P=1 AND PL=2 THEN 1440 
1440 PRINT"(( SORRY... YOU DIDN'T SCORE ))"; 
1450 FOR UU=1TO1200:NEXT 

1460 GOSUB780 

1470 IF PL=1 J21:GOSUB2000 ELSE GOSUB2070 
1480 IF PL=1 PL22:GOTO660 

1490 IF PL-2 PL=1iGOTO4&60 

1500 IF PL=1 THEN Q1=Q1+1 

1505 IF PL=2 THEN Q2-02*1 

1510 FOR T-ATOB 

1515 SET(T,C-1)sNEXT 

1920 SET(T-1,C)}SET(T-8,C) 

1522 FOR T=ATOB 

1525 RESET(T,C-1XYNEXT 

1530 RESET(T-1,CXY RESET(T-8,C) 

1535 FOR T=YTOY+3 

1540 SET(X+6,T NEXT 

1545 FOR T=X+3TOX+5 

1550 SET(T, VNSET(T, Y+3)sNEXT 

1555 FOR T=1TOZ25;NEXT 

1540 FOR T=YTOY+3 

1565 RESET(X+6,T) NEXT 

1570 FOR T=X+3TOX+5 
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1373 RESET(T,YXRESET(T,Y *33 NEXT 

1550 GOTO1470 

1600 REM COMPUTER’S THROW 

1610 LL=?0 
1620 LI-RND(O) 

1430 G-ABSI(LL-L1)*5 

1640 GOSUBZ200 

1650 GOTOSSO 

1700 REM À GAME 

1710 PRINT@A(PL),; 

1720 PRINT"### THAT'S А GAME +++"; 
1730 FOR TT=1TO1300;NEXT 

1740 CLS 

1750 IF 01-02 THEN 1850 

1760 IF 012092 THEN 1810 

1770 IF P-1 PRINT"YOUR "4 ААФИСОТО1790 
1780 PRINT AA$; 

1790 PRINT" HAS BEATEN YOU THIS GAME..." 
1500 GOTO1830 

1810 PRINT A$;" YOU HAVE BEATEN "; 
1820 IF P=1 PRINT" YOUR "МЖААФСОТО1840 
1830 PRINT AA$}"...A GOOD GAME !!!" 
1540 GOTO1550 

1550 PRINT'VOU BOTH HAVE";Q1;"POINTS." 
1860 PRINT'A GOOD WAY TO FINISH. NEITHER" 
1870 PRINT"OF YOU WINS !!!" 

1880 PRINT 

1590 PRINT'END OF HORSESHOES,." 

1700 END 

2000 REM HORSESHOES 

2010 Ү=7:Х=4 

2020 FOR M=YTOY+3 

2030 БЕТО,МИМЕХТ 

2040 FOR M=XTOX+3 

2020 SET(M,YXSET(M,Y *3NEXT 

2060 IF J=1 J=0Q;RETURN 

2070 Q=37;W=4 

2080 FOR M-QTOG-*3 

2090 БЕТ(М,МИМЕХТ 

2100 FOR M-WTOW-*3 

2110 SET(M,QXSET(M,Q*3)YNEXT 

2120 RETURN 

2200 REM CENTRAL LOCATION 

2210 REM FOR VARIABLES 
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2220 IF PL-2 THEN 2250 
2225 Y=Y1:X=X1 
2230 IF Y=0 Y=7 
2235 IF X-0 X=4 


2240 RETURN 
2250 Y1=Y:X1=X 
2260 T-QIX-W 
2270 RETURN 
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Кя КЛ ЕЛ 
ЕЗ ЕЕ 


Bloks is а time-consuming game like checkers or chess, but the similarity 
stops there. This game requires full concentration on you and your oppo- 
nent’s part. You will have to use strategy to 'blok' your opponent, move your 
22 bloks off the board, and at the same time, gain as many points as possible. 
Read all instructions carefully before playing. 


Sample Run 


PLAYER # 1 (INITIALS)?D.C. 
PLAYER f 2 (ІМІТІЛІ5) Қ.С. 


*** BLOKS xxx 
NEED THE INSTRUCTIONS?YES 
жж REQUIRES 2 PLAYERS жж 


THIS IS AN ACTION PACKED 

GAME THAT REQUIRES 

CAREFUL STRATEGY. 

BOTH PLAYERS WILL START WITH 

22 PLAYING PIECES. THE OBJECT 

IS TO EARN THE HIGHEST 

NUMBER OF POINTS POSSIBLE WHILE 
DEPLETING YOUR SUPPLY OF PLAYING 
PIECES, EACH PLAYER WILL HAVE 

11 COLUMNS (0-10). EACH ONE 
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START 


Input players 
names 


Yes 
Output 
instructions 


Set 
graphics 
Set 
strings 
Input move 
(from) 


Invalid 
move 


Input move 
(to) 


Yes 


Move-delete 
pieces 


No 
STOP 


Flowchart for Bloks 
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OF THESE COLUMNS WILL CONTAIN 
PRESS ENTER? 


2 PLAYING PIECES. EACH OF YOU 

WILL MOVE YOUR PIECES ONE 
COLUMN AT A TIME, FROM A LOW 

TO A HIGH NUMBER. (YOU CAN’T MOVE 
BACKWARD.) TO SET UP “BLOKS” YOU 
MUST HAVE 3 OF YOUR PIECES 

IN A COLUMN. 


PRESS ENTER? 


FOR EXAMPLE: 

IF YOU HAVE 2 PLAYING PIECES 

ON “З AND YOU WANT TO KEEP 

YOUR OPPONENT FROM REACHING ‘3.’ 
YOU CAN PLACE ANOTHER PIECE ON 
YOUR ‘3’ AND YOUR OPPONENT 

WILL BE BLOCKED FROM REACHING 
‘3’ (AS LONG AS YOU HAVE 3 

PIECES IN THAT OR ANY COLUMN). 


PRESS ENTER? 


EACH PLAYER WILL GAIN 3 

POINTS WITH EACH COLUMN OF 

3 PIECES. TO DEPLETE YOUR SUPPLY OF 
PLAYING PIECES, MOVE FROM ‘10’ 
TO 11. BUT REMEMBER, COLUMN 
‘9 MUST CONTAIN З PLAYING 
PIECES TO RAISE YOUR SCORE 

BY 10. (WHEN YOU HAVE REACHED 
YOUR LAST 3 PLAYING PIECES 
JUST GO FROM ‘10’ TO 11 

THE COMPUTER WILL AUTOMATIC- 
ALLY GIVE YOU 10 POINTS.) 


PRESS ENTER? 


THIS PROGRAM UTILIZES THE 
INKEY$ FUNCTION, HENCE, WHEN 
INPUTTING MOVES BELOW 10 (0-9) 
BE SURE TO INPUT LEADING ZERO’S, 
AND DO NOT PRESS ENTER !!! 

THE GAME WILL END WHEN EITHER 
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PLAYER HAS RUN OUT OF PLAYING 
PIECES. THE PLAYER WITH THE 
MOST POINTS WILL THEN 

BE DECLARED THE WINNER. 


PRESS ENTER? 


(NOTE: IF EITHER YOU OR YOUR 
OPPONENT CANNOT PLAY BECAUSE 
OF ‘BLOKS’ THAT PLAYER MUST 
INPUT ‘99° WHEN ASKED ‘FROM.’ 

AT THAT POINT THE GAME WILL 
END AND THE OTHER PLAYER WILL 
BE DECLARED THE WINNER. 


PRESS ENTER TO BEGIN? 


mm шш ш ш шшш ш ш 


K.C.'s 


Program Listing 


10 REM PROGRAM TITLE: BLOKS 

20 CLSIDIM A(22),X (22V 2470 

29 DIM М(11),М1(11),М2(11),М3(11) 

30 INPUT"PLAYER # 1 (INITALS)';A$ 
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40 INPUT"PLAYER # 2 (INITALS)";B$ 
20 IF LEN(A$)+LEN(B$)>=? THEN 70 

60 CLS:X$-2"SCORE":IGOTO100 

70 PRINT'INPUT INITALS AGAIN..NOT" 
50 PRINT'THE ENTIRE NAME ''' 

90 GOTO30 

100 CLS 

110 PRINT TAB(15);"### BLOK 5 e" 
120 PRINT 

130 PRINT"NEED THE INSTRUCTIONS"; 
140 INPUT W$ 

150 IF W$="YES" THEN 2700 

160 IF W$-"NO" THEN 300 

170 PRINT 

180 PRINT"CUT THE FUNNY STUFF..." 
190 PRINT" ANSWER ‘YES’ OR МО!" 
200 GOTO120 

300 FOR Х-ОТО47%5ЕТ(0,Х) 

305 IF X2=21 AND X<=25 SET(10,X) 

310 5ЕТ(127, Х:МЕХТ:Р=321:1=641:0=0:0=11 
320 FOR X-1TO126:SET(X;0) 

322 IF Х>=1 AND Х<-10 SET(X,2ONSET(X,Ż26) 
330 БЕТ(Х,47):МЕХТ:ҮУ=10 

340 FOR X=1TO146:SET(Y ,X)SNEXT 

350 FOR ХХ-46ТОЗ0 STEF-ISSET(V,XX) 
360 МЕХТИҒ U=0 PRINT@P+122,D; 

365 PRINT@P,U;;PRINT@L,U; 

370 IF Ү<>110 THEN 1000 ELSE P2449 
380 А=121;А1=697 

390 PRINTQGA,A$;"'S"j 

400 PRINT@A+64,X$; 

410 PRINTQGA1,B$;"'5"j 

470 PRINT@A1+64,X$; 

475 J-2ZIKzZ8iF-Z2 

430 FOR X-JTOK 

440 SET(X,F)SET(X,F+1) 

450 SET(X,F+2) 

455 SET(X,F+37)iSET(X,F+38) 

460 SET(X,F*39)NEXT 

462 A(D-SIX(I)D-K 

463 IF К<>108 THEN 475 

470 I-I*1:GOTO490 

473 I=I+1 

480 J=J+10;K=K+10:GOTO430 
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490 IF ЕС» THEN F=F+43J=2:K=8iGOT0O430 
495 GOSUB1500:GOSUB1100 

500 REM MOVEMENT 

310 PRINT@V,"FROM? "; 

920 Q$-INKETSIIF Q$="" THEN 520 
530 J=VAL(Q$)I=1#10 

935 Q$S-INKETSIIF Q$="" THEN 535 
540 E-VAL(O$)il-IrEIPRINTGVH45;I5 
941 IF I-99 THEN 2500 

942 IF I>=11 THEN 900 

343 FOR В-1Т0250%МЕХТ 

545 PRINT@V,"TO? "j 

550 G$-INKEY$!IF Q$="" THEN 550 
260 II-VAL(Q$SNIF II>1 THEN 545 
969 І1=11#10 

570 Q$=INKEYSiIF Q$="" THEN 570 
580 EE=VAL(Q$);II=II+EE 

582 IF 11>=12 THEN 900 

583 IF I>II THEN 900 

584 IF ABS(I-II)>=2 THEN 900 

585 PRINT@V+5,II;sIF PX=0 THEN 800 
990 IF РХ-1 GOTO1300 ELSE 1400 
595 FOR Z=A(I)TOX(I) 

600 RESET(Z,G)}RESET(Z,G+1) 

610 RESET(Z,G+2NEXT 

620 IF 11=11 THEN 2000 

660 FOR Z=A(IIDTOX(IINSET(Z,F) 

570 SETG,F*1XSETG,F*2) 

680 NEXT 

684 PX=0 

685 PRINTQ3A4256, "Hn GOSUB1240 
690 FOR Rz:1TO250:NEXT!PRINTQV*5," "3 
695 FzF-4:GOTO500 

700 REM INVALID MOVE 

710 PRINT@V+64,"INVALID MOVE"j 
720 FOR Rz1TO8751INEXT 

730 PRINT(QV +64," y 

740 I=0 

750 RETURN 

800 REM OPPONENTS MOVE 

810 GOTO1400 

820 FOR Z=A(I)TOX(IMRESET (Z,T+37) 
830 RESETG,T*38YRESETG,T-*39) 
840 NEXT 


183 


845 IF II211 THEN 2000 

620 FOR Z-A(IDTOX(IXSSETG,F*37) 

860 SET(,F*38NSETG,F*39)NEXT 

870 PRINT@AI+256," "j 

075 PX=1 

зе0 GOSUBIZ40;PRINT@V+t5," 

690 GOTOS00 

900 REM TO INVALID MOVE 

910 GOSUB700 

920 IF JJ=1 GOSUBI2Z40;0 J=0 

920 GOTOS00 

1000 Y=Y+10;U=U+1$P=P+5 

1010 L=L+3;GOTO340 

1100 PRINTGV,"DRAWING TWO NUMBERS."; 
1105 PRINT@V+64,;;FOR К-1Т0775МЕХТ 
1110 PRINT'HIGH NUMBER GOES FIRST..."; 
1120 FOR Rz:1,.,200: NEXT 

1125 PRINT@A+172,"DRAW";{PRINT@A1I+1927,"DRAW"; 
1130 FOR W=1TOz 

1140 FOR U-1TO3 

1150 DI RND(ZOYDZ-RND(ZO) 

1155 PRINTQA*256,D1 1 PRINTQGA1*256,D2j 
1160 IF D12D2 THEN 1130 

1170 NEXT U,W 

1172 FOR R=1TO1Z00;NEXT 

1175 PRINTQA4192," "jASPRINTQGA1*192," "j 
1178 PRINT@A+256," "ИРКІМТаА1%256," "; 
1180 IF D1»D2 PRINT(QV*64,A$5PX-1:GOTO1200 
1190 PRINT@V+64,B$; 

1200 PRINT" WILL PLAY FIRST. "j 

1210 FOR R=1TO1200‘NEXT 

1220 PRINT@V," 

1230 PRINT@V+64," "; 

1240 IF PX=1 PRINT@A+2546,"TURN"};GOTO1260 
1250 PRINTGA1*256," TURN"; 

1260 RETUPN 

1300 REM DELETE PIECES 

1304 IF М(1)=0 THEN 900 

1305 IF M(I)=3 F=10 

1310 IF M(D-2 F26 

1315 IF M(I)s1 F-2 

1320 M(T)=M(T)-1{G=F 

1325 IF М(1)<=0 M(T)=0 

1330 REM SET AREA 


184 


1340 IF M(II)-2 F=10 

1342 IF M(II)-3 THEN G20:M(D-MO*1:GOTO900 
1343 IF M(ID=1 F=4 

1344 IF МАП-0 F=2 

1345 M(IT)=M(IT)+1 

1346 GOTO1400 

1350 IF M(II)-3 GOSUB1900 
1355 GOTOS?S 

1400 REM DELETE PIECES 
1405 IF MI(I)-3 Ғ--2 

1410 IF Мі(1)=2 Р=2 

1412 IF M1(I»1 Р=6 

1415 MI(ID-MI(I)-1 

1420 IF M1(1)<=0 М1()=0 

1425 T-F 

1430 IF MI(II)-3 THEN M1(D)=M1(1)+1:;GOTO900 
1440 М1(11)=Мі(1)+1 

1445 IF MII-3 THEN 1780 
1450 IF :11(IT)-3 GOSUB1940 
1460 IF MI(ID-122 "2-2 

1465 IF Mi(IT)-1=1 F-2 

1468 IF M1(II-1-20 Р=6 

1470 GOTOSZO 

1500 REM PLAYERS PIECES 
1510 Н-2 

1515 FOR I=0TO10 

1320 M(D=HiM1(D=H 

1530 NEXT 

1540 RETURN 

1600 REM BLOKS ? 

1610 IF Mi(ID=3 THEN 1750 
1620 GOTO1350 

1625 IF М1(11)=3 THEN 900 
1530 IF MII-3 THEN 1780 
1660 GOTO1405 

1750 PX=OQ;M(D=M(1)+1SM(ID=M(II)-1 
1755 FzGiGz0:)GOSUB2200 

1760 PRINT@A+256," "j 

1770 JJ21:GOTO900 

1780 MIĊID-M1(I)411M1(ID-M 1(ID)-1 
1785 PX-IiF-TIT-0O:GOSUBZZOO 
1790 PRINT@A1+256," "$ 

1200 JI-15GOTO900 

1900 REM POINTS ADVANCE 
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1910 Р1=Рі+3 

1920 PRINT@A+t12&,P1} 

1730 RETURN 

1740 Р2=Р2+3 

1920 PRINT@A1+128,P2; 

1740 RETURN 

2000 REM PIECE OUT 

2003 М-22 

2010 IF PX-1 THEN АҮ=АҮ+1:СОТО2020 
2015 AX=AX+1 

2020 FOR Z-A(IDTOX (II) 

2030 SET(Z,NISSET(Z,N41) 

2040 SETZ,N*20YNEXT 

2050 FOR R=1TOSSO;NEXT 

2040 FOR Z-A(IDTOX (II) 

2070 RESETG,NXYRESETG,N*1) 
2050 RESET(Z,N+Z);NEXT 

2090 IF PX=1 THEN 2155 

2095 ІР AX>=20 THEN 2110 

2100 IF MI(II-2 03 THEN 2120 
2110 P2Z-PZ*10;PRINT(QA1*129,P72j 
2115 MI(ID-0:GOTOZ150 

2120 PRINT@V+64,"NO POINTS"; 
2130 FOR R=1TO1000;NEXT 

2140 PRINT@V+64," "; 

2145 М(11)=0:М1(1)=0:60Т02180 
2150 IF PX=1 THEN 684 ELSE 870 
2155 IF AY>=20 THEN 2170 

2160 IF M(II-2)<>3 THEN 2120 
2165 M(IT)=0 

2170 Pi=P1+10;PRINT@A+128,P1} 
2180 PRINT@P,D} 

2185 IF AY=22 THEN 2300 ELSE IF AX=22 THEN 2350 
2190 IF AX-22 AND AY-22 THEN 2400 
2195 GOSUB1240:GOTOZ150 

2200 REM BLOKS PRINT 

2210 PRINTQV*64,* BLOKS +"; 
2220 FOR R-1ITOSSOINEXT 

2230 PRINTQV +64," "5 
2240 RETURN 

2300 REM WIN + TOTAL SCORE 
2305 IF Р1=Р2 THEN 2400 

2310 IF Р2>Р1 THEN 2350 

2315 PRINT@V-10,} 
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2320 PRINT A$;" HAS JUST WON, FINAL SCORE"} 
2325 PRINT@V+54,; 

2330 PRINT A$;" HAS"jP1;" "jB$j" HAS";P2} 

2340 GOTOZ340 

2350 PRINT(3V-10,j 

2355 IF P1»5P2 THEN 2320 

2360 PRINT B$;" HAS JUST WON, FINAL SCORE"; 
2370 PRINT@V+54,; 

2380 PRINT B$;" HAS";PZ;" "АФ" HAS"jP1j 

2390 СОТО2340 

2400 REM TIE 

2410 PRINT(AV-10;; 

2420 PRINT'TIE GAME. FINAL SCORE"; 

2430 PRINT 

2440 GOTO2325 

2300 REM FORFEIT OF GAME 

2910 PRINT@V-10,5 

2920 IF PX-1 THEN 2570 

2930 PRINT B$;" HAS JUST GIVEN ОР... 

2540 PRINTQV *54,j 

2550 PRINT А$;" WINS BY DEFAULT !!!"; 

2560 GOTO2340 

2570 PRINT A$;" HAS JUST GIVEN ОР..."; 

2980 PRINT@V+54,; 

2990 PRINT B$;" WINS BY DEFAULT !!!"; 

2600 GOTO2340 

2700 REM INSTRUCTIONS 

2710 PRINT"## REQUIRES 2 PLAYERS ++" 

2720 PRINT'THIS IS AN ACTION PACKED" 

2730 PRINT"GAME THAT REQUIRES" 

2740 PRINT'CAREFUL STRATRGY." 

2750 PRINT"BOTH PLAYERS WILL START WITH" 
2760 PRINT'22 PLAYING PIECES. THE OBJECT" 
2770 PRINT'IS TO EARN THE HIGHEST" 

2780 PRINT"NUMBER OF POINTS POSSIBLE WHILE" 
2790 PRINT"DEPLETING YOUR SUPPLY OF PLAYING" 
2800 PRINT"PIECES, EACH PLAYER WILL HAVE" 
2810 PRINT"11 COLUMNS (0-10), EACH ONE" 
2820 PRINT"OF THESE COLUMNS WILL CONTAIN" 
2830 INPUT"PRESS ENTER";XX 


2350 PRINT"Z PLAYING PIECES, EACH OF YOU" 
2560 PRINT"WILL MOVE YOUR PIECES ONE" 
2870 PRINT"COLUMN AT A TIME, FROM A LOW" 
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2880 PRINT"TO A HIGH NUMBER (YOU CAN'T MOVE" 
2370 PRINT'BACKWARD), TO SET UP ";СНЕФ(34); 
2900 PRINT"BLOKS" ;CHR&(34);" YOU" 

2910 PRINT"MUST HAVE 3 OF YOUR PIECES" 

2915 PRINT"IN A COLUMN," 

2916 INPUT"PRESS ENTER" ;XX:CLS 

2920 PRINT"FOR EXAMPLE?" 

2930 PRINT'IF YOU HAVE 2 PLAYING PIECES" 
2740 PRINT"ON '3' AND YOU WANT TO KEEP" 

2950 PRINT" YOUR OPPONENT FROM REACHING '3'" 
2960 PRINT"YOU CAN PLACE ANOTHER PIECE ON" 
2970 PRINT"YQUR '3' AND YOUR OPPONENT" 

2980 PRINT"WILL BE BLOCKED FROM REACHING" 
2990 PRINT''3' (AS LONG AS YOU HAVE З" 

3000 PRINT"PIECES IN THAT OR ANY COLUMN)" 
3010 INPUT"PRESS ENTER";XX 

3020 CLS 

3030 PRINT"EACH PLAYER WILL GAIN 3" 

3040 PRINT"POINTS WITH EACH COLUMN OF" 
3050 PRINT"3 PIECES. TO DEPLETE YOUR SUPPLY OF" 
3060 PRINT"PLAYING PIECES, MOVE FROM 710" 
3070 PRINT"TO 711% BUT REMEMBER, COLUMN" 
3080 PRINT"'9?' MUST CONTAIN 3 PLAYING" 

3090 PRINT"PIECES TO RAISE YOUR SCORE" 

3100 PRINT"BY 10, (WHEN YOU HAVE REACHED" 
3110 PRINT"YOUR LAST 3 PLAYING PIECES" 

3120 PRINT"JUST GO FROM ‘10’ TO '11"" 

3130 PRINT'THE COMPUTER WILL AUTOMATIC-" 
3140 PRINT"ALLY GIVE YOU 10 POINTS." 

3150 INPUT"PRESS ENTER" ;XX 

3160 CLS 

3170 PRINT'THIS PROGRAM UTILIZES THE" 

3180 PRINT"<INKEY$> FUNCTION, HENCE, WHEN" 
3190 PRINT'INPUTTING MOVES BELOW 10 (0-9)" 
3200 PRINT"BE SURE TO INPUT LEADING ZERO'S," 
3210 PRINT"AND DO NOT PRESS ENTER !!!" 

3220 PRINT'THE GAME WILL END WHEN EITHER" 
3230 PRINT"PLAYER HAS RUN OUT OF PLAYING" 
3250 PRINT" PIECES. THE PLAYER WITH THE" 

3260 PRINT'MOST POINTS WILL THEN" 

3270 PRINT"BE DECLARED THE WINNER." 

3279 INPUT"PRESS ENTER" X X:CLS 

3280 PRINT"NOTE: IF EITHER YOU OR YOUR" 
3290 PRINT"OPPONENT CANNOT PLAY BECAUSE" 
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3300 PRINT"OF 'BLOKS' THAT PLAYER MUST" 
3310 PRINT"INPUT ‘79’ WHEN ASKED ‘FROM’," 
3320 PRINT"AT THAT POINT THE GAME WILL" 
3330 PRINT'END AND THE OTHER PLAYER WILL" 
3335 PRINT"BE DECLARED THE WINNER." 

3340 INPUT"PRESS ENTER TO BEGIN" ;XX 

350 CLS 

240 GOTO300 


2 
5 
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MISSION IMPROBABLE 


You are destined to be killed by microscopic germs if you or your opponent 

. do not complete this mission. You must keep an eye on where you are going, 
how much oxygen you have left, how far you still have to travel, and how high 
the alarm rating has climbed. Two players must compete against each other 
in this game. 


Sample Run 


1ST PLAYER'S FIRST NAME? SPOCK 
2ND PLAYER'S FIRST NAME? KIRK 


LIST INSTRUCTIONS? YES 
*** MISSION IMPROBABLE *** 


THIS IS A GAME IN WHICH YOU WILL 
CHALLENGE A FRIEND OR RELATIVE TO 
COMPLETE A MISSION. THE FINAL SCORE 
WILL BE COMPUTED AS FOLLOWS: 

ONE POINT TO THE PLAYER WITH FEWER 
COLLISIONS, ONE POINT TO THE PLAYER 
WITH MORE OXYGEN LEFT, AND ONE 
POINT TO THE PLAYER WITH LESS 
DISTANCE LEFT TO GO. 


THE WINNER OF THE MISSION WILL BE 
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Flowchart for Mission Improbable 
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PRINTED AFTER EACH OF YOU HAVE 
COMPLETED FIVE TOTAL RUNS. 


PRESS ENTER? 


YOU SHOULD GET THE ‘HANG’ OF THINGS 
AFTER YOU HAVE COMPLETED 1 RUN. 

BUT, JUST TO GET YOU STARTED, HERE’S 
WHERE YOU’LL BE AND WHAT YOUR MISSION 
WILL BE: 

YOU ARE IN AN AIR-TIGHT CAPSULE. BEYOND 
YOUR DORM (WHERE YOU'LL START & FINISH) 
WILL BE THREE AIR-LOCK DOORS. YOU 

MUST MANEUVER OUT OF YOUR DORM, GO OUT 
ONE OF THE 3 AIR-LOCK DOORS AND 

RETURN THROUGH A DIFFERENT DOOR. 

THE OBJECT OF ALL THIS IS TO RID YOUR- 
SELF OF DEADLY MICROSCOPIC GERMS THAT 
HAVE INFILTRATED YOUR DORM. 


PRESS ENTER? 


ALL OF THIS SOUNDS VERY SIMPLE, RIGHT? 
BUT, THERE АКЕ A FEW THINGS YOU'LL HAVE 
TO REMEMBER: TAKE THE SHORTEST ROUTE 
SO YOU’LL HAVE PLENTY OF OXYGEN AND 
DON’T COLLIDE WITH ANY WALLS 

(ALL COLLISIONS WILL COUNT AGAINST YOU.) 
AFTER YOU GET STARTED YOU WILL SEE 

AN ‘ALARM RATING’ NEAR THE TOP 

CENTER OF THE SCREEN. AS YOU 

ARE RETURNING TO YOUR DORM, THIS 
RATING WILL BECOME HIGHER & HIGHER. 

AS A MATTER OF FACT, WHEN YOU MAKE 


PRESS ENTER? 


THE FINAL TURNS ON YOUR WAY BACK TO 
YOUR DORM THIS RATING WILL BECOME 
VERY HIGH. DON’T TOUCH THE WALLS 
NOW OR INSTANT DEATH WILL RESULT 
FROM THE MICROSCOPIC GERMS. 

WHEN YOU ENTER THE FINAL DOOR 

TO YOUR DORM, YOU WILL SEE AN ‘X’ 

'X MARKS THE SPOT’. HIT 
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OR COLLIDE WITH THIS 'X' AND YOU 

WILL HAVE COMPLETED 1 (ONE) RUN. 

OH YES, I FORGOT TO MENTION, AFTER 
YOU PASS THROUGH ONE OF THE AIR-LOCK 
DOORS (THERE ARE THREE) ONE OF 

THE 2 REMAINING DOORS WILL BE 


PRESS ENTER? 


CLOSED AND SEALED. SO YOU’LL HAVE 
TO USE THE ONE REMAINING DOOR TO 
GET BACK IN. 


YOU WILL USE THE FOUR 

ARROW KEYS TO MANIPULATE YOURSELF 
AROUND THE COURSE AREA. USE THE 
LEFT, RIGHT, UP, AND DOWN ARROW 
KEYS.....ONLY! 


PRESS ENTER NOW AND SPOCK 
WILL TAKE THE FIRST RUN? 


Oxygen = 0 


Distance left = 725 
Alarm rating: 0 | 


Collisions = 0 


Spock’s Run 
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Program Listing 


10 REM PROGRAM TITLE: MISSION IMPROBABLE 
20 CLS 

30 RANDOM 

40 GOTO3000 

80 FOR I-1TOSSS(Il-INEXT 

69 GF-z15001DF-20iFFzÜü!BB-0 

90 RX=973:XN=10000;DL=750;AR=0;D=0 
100 Y-z&6iYY-41:A-53012-83:FG71500 
110 FOR X-232TO100 

120 SET(X,YWSET(OXG Y *15SETOCG, Y *2) 
130 NEXT 

140 FOR X-100TO32 STEF-1 

130 SET(X,YYXSETOGYY-1) 

160 SET(OX,YY-2) 

170 NEXT 

180 FOR X=YTOYY 

190 SETC3O,X ASET(G1,X) 

200 SETGZ,XXYNEXT 

210 FOR X=YYTOY STEF-1 

220 SETü OI, XWSET((102,X) 

230 SET(O3,X NEXT 

235 GOSUB240:!GOTO290 

240 ТЕ DF-1 GOSUBZ470 

245 FOR X-ATOZ 

220 SET(X,Y *10SET(OX, Y *11) 

299 IF DF=1 PRINTGIOZ;AR; 

260 SET(X,Y+12);IF DF=1 THEN AR=AR+,2 
270 SET(X,YY-10)SET(X,YY-11) 
280 БЕТО,ҮҮ-12МЕХТІРІ.-2 

252 GOSUB1800 

225 RETURN 

290 FOR XzY412TOYY-1Z 

300 SET(A,XYSET(S1,X WSET(32,X) 
310 SETG,XYSET(S4A,X Y SET(S3,X) 
320 NEXT 

330 Q-RND(G4) 

340 IF Q¢=18 THEN 330 

320 FOR X-ATOAÀA*2 

360 RESET(X,Q);RESET(X ,Q+1) 

370 RESET(X,QĦ2JINEXT 

380 W=RND(24) 

370 IF W=Q THEN 350 
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400 IF W<=18 THEN 380 

410 FOR Х-2-2Т07 

420 RESET(X,WYRESET(X,W-*1) 

430 RESET(X,W42)5NEXT 

440 FOR X-30TO32 

450 RESET(X,Y *AY RESET(X,Y *5) 

460 RESET(X,Y *6) 

470 RESET(X,YY-AYRESET(X,YY-5) 
480 RESET(X,YY-4&) 

490 RESET(X,Y*17)Y RESET(X,Y*18) 
300 RESET(X,Y+1%) 

210 NEXT 

ILO FOR 1=1Т04:7(1)=Ү+4 

«30 KIO)-Y4*17LGO-YY-7 

940 Y=Y+1:YY=YY+i 

590 NEXTiY261Y Y241iX7A*15 

955 Р=Ү+15:М=(А-20:60508780 
560 SET(X,F)SET(X+1,F) 

965 IF ВВ=0 PRINTQGRX*10,T$;"'5 RUN"; 
5/0 0О-РЕЕК(15340) 

580 IF X<=38 THEN РОКЕ15905,88 
383 IF X<=30 AND FF=0 GOSUB1600 
390 IF FF-1 AND РЕЕК(15905)<>88 THEN 2000 
600 IF 00-64 THEN 650 

610 IF 00-32 THEN 670 

620 IF 00-16 THEN 680 

630 IF QQ=8 THEN 690 

640 GOTOS70 

650 X=X+1 

640 IF DF=1 AND X>=80 THEN 695 ELSE 900 
670 X2X-1:GOTO920 

680 F-ZF*1:GOTO940 

690 F-F-1:GOTO960 

895 GOSUB1560;GOTO900 

700 IF X<=9 THEN 750 

710 IF X>=99 THEN 750 

720 IF Ғ<-9 THEN 750 

730 IF F>=38 THEN 750 

733 IF X<=29 AND DF=0 THEN 770 
740 DL=DL-3;GOTOS60 

730 REM REACHED LIMITS 

760 GOTO1100 

770 TR-X:GOSUB1520:GOSUB1560:GOTO560 
780 PRINTQ2,"COLLISIONS ="; 
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730 PRINT(220,"OXYGEN ="; 

800 PRINT@38,"DISTANCE LEFT ="; 
805 PRINTQSS,"ALARM RATING?"} 
810 RETURN 

820 XN=((XN-INT(X/10)-(X#1,1))) 
522 IF DL<=0 THEN DL=0 

825 PRINTQ14,D; 

826 IF XN<=0 THEN ХМ=0:РКІМТ(27," "РХ-1 
830 PRINTEZZ;XNI; 

640 PRINTG1OZ;AR; 

S50 PRINT(354,DL; 

эсе IF PX=1 THEN 2000 

S40 GOTO700 

700 IF POINT(X+27,F) THEN 1000 
710 GOTOS20 

920 IF POINT(X-1,F) THEN 1000 
7292 ТЕ POINT(X,F-1) THEN 1000 
925 IF POINT(X,F+1) THEN 1000 
930 СОТО910 

740 IF POINT(X+1,F+1) THEN 1000 
250 GOTO?910 

940 IF POINT(X,F-1) THEN 1000 
970 GOTO*?10 

1000 REM COLLISIONS 

1010 DzD-41:AD-AD-*1 

1015 IF D-1 THEN 2=PL ELSE 2-2 
1020 IF DF=1 GOSUB1540 

1025 PRINT@14,D; 

1030 AD=NGOTO710 

1100 REM * LIMITS PRINT * 

1110 PRINT@RX,"YOU HAVE REACHED THE"; 
1120 PRINT" LIMIT - BACK UP.."j 
1130 FOR WziTO1Z2001NEXT 

1140 PRINT@RX," "S 
1150 PRINT" E 

1700 REM DOOR CLOSURE 

1210 T-RND(3) 

1215 IF S(T)=0 THEN 1210 

1220 FOR І-1Т04 

1230 ON T GOTO 1240;1240,1280 
1240 SET(M,J O)fSET(M*1,J (I) 
1250 SET(OM*2,J (1)8GOTO1300 

1260 SET(M,K(I)iSET(M+1 ,K(1)) 
1270 SET(M+2,K (1) }GOTO1300 
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1280 SET(M,L(IDISET(M*1,LQOD) 

1290 SET(M+2,L(1)) 

1300 NEXT 

1305 IF 8122 THEN 1340 

1310 51=51+1:52=5(Т):5(Т)=0 

1320 GOTO1400 

1340 PRINT@RX+8,"ALL DOORS ARE CLOSED sse 
1350 GOSUB1810:GOTO1480 

1400 REM DOOR CLOSED ON PATH 

1405 ON 82 GOTO 1410,1430,1450 

1410 IF F>=9 AND F<=13 THEN 1470 

1420 GOTOS60 

1430 IF Fo=22 AND Р<=25 THEN 1470 

1440 СОТО560 

1450 IF F>=34 AND Р<=37 THEN 1470 

1460 GOTOSLO 

1470 REM DOOR CLOSED 

1475 IF X2233 THEN 1420 

1480 PRINT@RX+3,"YOUR PATH HAS BEEN CUT-OFF "; 
1490 GOSUB1810 

1500 PRINT@RX+3," THIS RUN IS OVER.«« "; 
1505 XN=0;DL=750 

1510 GOSUB1810:GOTOZ2400 

1320 DF=1 

1530 Ү=Ү-6:А=А-1З 

1540 ҮҮ=ҮҮ+6:7=7+13 

1550 GOSUB240 

1555 Y=6;Y Y=41:X=TRiRETURN 

1540 FOR U=Y+STOYY-SiSET(Z,UMNEXT 

1545 GOSUBZ470 

1566 FOR HJ-1TO150:NEXT 

1570 Z-Z-ISAR-ARHZ 

1580 IF АН>-14.4 AND POINT(X+1,F) THEN 1900 
1585 GOSUB1800 

1590 BB=1;RETURN 

1600 REM CLOSE ONE DOOR 

1610 FF=1 

1620 IF F?-9 AND Р<=13 THEN AN=1:GOTO1635 
1630 IF Ғо-22 AND F&225 THEN AN=2:;GOTO1655 
1640 IF Ғ>-34 AND Ғ<-37 THEN AN=3;GOTO1655 
1450 RETURN 

1455 AA-RND(SNIF AA-AN THEN 1655 

1560 FOR 1=1ТО4 

1670 ON AA GOTO 1680,1700,1720 
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1480 SET(OM,J (DXISET(M*1,J (1) 

1690 SET(M*2,J(IDiGOTO1740 

1700 SET(M,K(DXSETOM * 1,K (D) 

1710 SET(M*2Z,K(IDIGOTO1740 

1720 SET(OM,L(DISET(OM* 1,L(ID 

1730 SET(M+2,L(1)) 

1740 NEXT 

1750 RETURN 

1800 PRINT@RX+3," "; 
1803 PRINT@RX+3,;;RETURN 

1310 FOR FG-1TOGFINEXT 

1820 RETURN 

1900 REM FINAL ALARM 

1910 RAsi 

1920 GOSUB1800 

1730 PRINT" жөн ALARM тн) 

1932 FOR KL-1TO100:NEXT 

17:34 GOSUB1800 

1940 GF-1001:GOSUB1810 

1750 RA-RA-*1iIIF RA<=6 THEN 1920 

1940 FOR GF=1TOZ500;NEXT 

1965 CLS:IPRINT 

1970 PRINT T$;" YOU HAVE TRIFPED THE" 
1975 PRINT"MAIN ALARM SYSTEM..." 
1980 PRINT"THE MICROSCOPIC GERMS ARE QUT OF" 
1355 PRINT'CONTROL «YOU AND ''5B$ 
1990 PRINT'ARE BOTH DEAD seren 

1995 GOTOZ300 

2000 REM COMPLETED 

2005 IF GF<=0 THEN GF=1500 

2010 FF=0;DF=0;GOSUB1800 

2015 IF PX21 PX=0;GOTOZ200 

2020 PRINT"YOU HAVE RETURNED, AND COMPLETED"; 
2030 GOSUB1810;GOSUB1800 

2035 IF 0<>0 THEN 2100 

2040 PRINT"RUN NUMBER"; 

2045 IF RE=0 PRINT R1 ;A$; ELSE PRINT R2 5B$; 
2050 GOSUB1810;GOSUB1800 

2060 СОТО2400 

2100 PRINT"A RUN, BUT YOU HAVE HAD"; 
2110 GOSUB1810;GOSUB1800 

2120 PRINT D;"COLLISIONS,"; 

2130 GOSUB1810:GOSUB1800 

2140 PRINT"THE GERMS ARE STILL ACTIVE l''; 
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2150 GOSUB1810:GOSUBI1800 

2160 GOTOZ400 

2200 GOSUB1800 

2210 IF RE=0 THEN 2280 

2220 PRINT В%;" YOU HAVE USED UP YOUR"; 
2230 GOSUBI1810:!GOSUB1800 

2240 PRINT'AMOUNT ОҒ OXYGEN, SORRY."; 
2250 GOSUB13810:GOSUB1800 

2260 PRINT"THIS RUN SCRUBBED !!!"; 

2270 GOSUB1810;GOSUB1800;GOTOZ400 

2230 PRINT A$;" YOU HAVE USED UP YOUR"; 
2270 GOTO2230 

2300 REM PLAY ANOTHER 

2305 FOR KJz1TOZOOO:NEXT:PRINT 

2310 PRINT 

2315 PRINT А%; ARE YOU AND "jB$;" READY" 
2320 PRINT"TO PLAY ANOTHER 5 RUNS THROUGH" 
329 INPUT"THE CAPSULE"';I$ 

330 IF I$2"YES" OR I$-"Y" THEN 3890 

33 

3 


Ж 


о PRINT 
£340 PRINT"TOTAL КОМ COMPLETED..." 
2343 END 
2400 IF RE=0 THEN 2450 
2410 B(RZ)EDIBI(RZ)-XN:BZ(RZ)-DL 
2420 R2-R2*1 
2430 КЕ=0:Т%=А$ 
2440 IF Н2<-5 THEN 2600 
2450 A(RI)-DSAMRI)D-XNTAZ(RI)-DL 
2460 RE=1;T$=BS 
2470 Ri-RiHi 
2480 IF R1<=5 THEN 2600 
2485 IF Rz<=5 THEN 2600 ELSE 2700 
2490 GOTOZZOO 
2600 GOSUB1800 
2610 PRINT T$;" WILL TAKE A RUN THROUGH"; 
2620 GOSUBI1810:GOSUB1300 
2630 PRINT"THE CAPSULE. «GOOD LUCK !!"; 
2540 GOSUB1810:GOSUBI1 300 
2650 CLS 
2660 GOTOSO /2Ҙ 
2670 PRINT@RX+9,"% NOTE ALARM RATING +"; 
2680 RETURN 
2700 REM RUNS COMPLETED 
2702 Мі=0:М2=0 


LS ha b M 
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2710 FOR 1=1ТО5 
2/20 JSA(IHJ 
2/30 JI-BIDHJi 
2740 NEXT 

2760 FOR 1=1ТО5 
2770 JZ=ALD +32 
2730 J3zB1(D4J3 
2790 NEXT 

2810 FOR 1=1ТО5 
eo J4A-A2(IDJA 
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Ja-BZ(IMJ5 
Q NEXT 
ОТЕ Ј=Јі THEN 7660 
S IFJ&£J1 THEN Мі=Мі+і ELSE М2=М2+1 
AQ IF I22J3 THEN 2570 

a IF J25J3 THEN Mi=Mi+i ELSE М2=М2+1 
A IF J4=J5 THEN 2895 
ОЮ IF 74275 THEN Мі=Мі+і ELSE М2=М2+1 
a PRINT@RX+5,"#* COMPILING ALL DATA ғғ 
FOR GH=1TOZ000iNEXTiCLS:PRINT 
PRINT" Нн END OF 5 MISSIONS 3:98" 
PRINT 
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/ IF J=0 AND 71-0 THEN 2940 

IF ГАП PRINT A$5KJ-1 ELSE PRINTB$j 

J PRINT" HAD THE MOST COLLISIONS, TOTAL ="; 
i IF KJ-1 PRINT J ELSE PRINT Ji 

40 PRINT'TOTAL AMOUNT OF OXYGEN LEFT 

3 PRINT A$;" HAS"}J2Z;"UNITS." 

оО PRINT В%;" HAS";J3;"UNITS." 

5 IF J2>J3 THEN PRINT A$; ELSE PRINTB$; 

0 PRINT" HAS THE GREATER NUMBER OF UNITS." 


|! Cn ra es eno N: 


a PRINT'TOTAL DISTANCE!" 


О PRINT A$;"'5 DISTANCE =";J i 

5 PRINT B$j"'5 DISTANCE s'iJ 

iQ IF Ј4<75 PRINT A$; ELSE part B$; 
PRINT" HAS THE LEAST DISTANCE," 
IF Мі=М2 THEN 2985 

IF М THEN T$-A$ ELSE T$-B$ 


e 


c 0n i ЖҰ) һа de 


GERMS," «GOTO2995 


PRINT 
PRINT Т%; HAS SUCCESSFULLY DESTROYED ALL" 


739 PRINT'THE MICROSCOPIC GERMS IN THE DORM" 
290 PRINT" AREA... CONGRATULATIONS !!!" 

995 GOTOZZON 

3000 REM PLAYER’S NAMES & INSTRUCTIONS 

3010 PRINT CHRS(23) 

3020 PRINT 

3030 INPUT"18T PLAYER'S FIRST МАМЕ"А% 

3040 INPUT"ZND PLAYER'S FIRST NAME"jB$ 

3050 PRINT 

3060 INPUT"LIST INSTRUCTIONS";I$ 

3070 IF I$="NO" OR I$-"N" THEN NA=1 

3050 CLS 

3090 IF NA=1 THEN 3520 

3100 PRINT TAB(15);"### MISSION IMPROBABLE 38" 
3110 PRINT 

3120 PRINT"THIS IS A GAME IN WHICH YOU WILL" 
3130 PRINT"CHALLENGE A FRIEND OR RELATIVE TO" 
3140 PRINT"COMPLETE A MISSION. THE FINAL SCORE" 
3150 PRINT'WILL BE COMPUTED AS FOLLOWS;" 

3160 PRINT'ONE POINT TO THE PLAYER WITH FEWER" 
3170 PRINT'COLLISIONS, ONE POINT TO THE PLAYER" 
3180 PRINT"WITH MORE OXYGEN LEFT, AND ONE" 
3185 PRINT'POINT TO THE PLAYER WITH LESS" 

3190 PRINT'DISTANCE LEFT TO GO." 

3200 PRINT'THE WINNER OF THE MISSION WILL BE" 
3210 PRINT'PRINTED AFTER EACH OF YOU HAVE" 
3220 PRINT'COMPLETED 5 TOTAL RUNS." 

3230 PRINT 

a INPUT"PRESS ENTER";XX 

CLS 

3260 PRINT 

3270 PRINT" YOU SHOULD GET THE ‘HANG’ OF THINGS" 
280 PRINT" AFTER YOU HAVE COMPLETED 1 RUN." 
32 


MFI) 
EA, 
29 
da d 
E 


52 
Y 
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70 PRINT" BUT, JUST ТО GET YOU STARTED, HERE'S" 
300 PRINT"WHERE VOU'LL BE AND WHAT YOUR 
MISSION' 
110 PRINT'WILL BE" 
20 PRINT"YOU ARE IN AN AIR-TIGHT CAPSULE. 
BEYOND" 
3330 PRINT"YOUR DORM (WHERE YOU'LL START 
& FINISH?" 
3340 PRINT"WILL BE 3 AIR-LOCK DOORS. YOU" 
3350 PRINT"MUST MANEUVER OUT OF YOUR DORM; 
GO OUT" 


P fall n tal GO 


—^ 
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3360 PRINT"ONE OF THE 3 AIR-LOCK DOORS AND" 

2370 PRINT'RETURN THROUGH A DIFFERENT DOOR." 

3280 PRINT"THE OBJECT OF ALL THIS IS TO RID YOUR-" 

2370 PRINT'SELF OF DEADLY MICROSCOPIC 
GERMS THAT" 

3400 PRINT"HAVE INFILTRATED YOUR DORM." 

3410 PRINT 

3420 INPUT"PRESS ENTER" ;XX 

3430 PRINT 

3440 PRINT"ALL OF THIS SOUNDS VERY SIMPLE, RIGHT?" 

3450 PRINT"BUT, THERE ARE À FEW THINGS YOU'LL 
HAVE" 

3460 РКІМТ"ТО REMEMBER: TAKE THE SHORTEST 
ROUTE; 

3470 PRINT"SO YOU'LL HAVE PLENTY OF OXYGEN," 

3480 PRINT'AND DON'T COLLIDE WITH ANY WALLS}" 

3490 PRINT'ALL COLLISIONS WILL COUNT AGAINST 
YOU," 

3900 PRINT'AFTER YOU GET STARTED, YOU WILL SEE" 

3510 PRINT'AN “ALARM RATING’ NEAR THE TOP" 

35220 PRINT'CENTER OF YOUR SCREEN, AS YOU" 

3930 PRINT"ARE RETURNING TO YOUR DORM, THIS" 

3240 PRINT"RATING WILL BECOME HIGHER & HIGHER." 

3530 PRINT"AS A MATTER OF FACT, WHEN YOU MAKE" 

3960 PRINT 

2270 INPUT"PRESS ENTER";XX 

2220 PRINT 

3990 PRINT'THE FINAL TURNS ON YOUR WAY BACK TO" 

3600 PRINT" YOUR DORM THIS RATING WILL BECOME" 

3610 PRINT"VERY HIGH. DON'T TOUCH THE WALLS NOW" 

3620 PRINT"OR INSTANT DEATH WILL RESULT" 

3430 PRINT"FROM THE MICROSCOPIC GERMS," 

3640 PRINT"WHEN YOU ENTER THE FINAL DOOR" 

3630 PRINT"TO YOUR DORM, YOU WILL SEE AN 'X'' 

3660 PRINT"AS IN 'X MARKS THE SPOT’, HIT" 

3670 PRINT'OR COLLIDE WITH THIS 'X' AND YOU" 

3680 PRINT"WILL HAVE COMPLETED 1 (ONE) RUN." 

3690 PRINT"OH YES, I FORGOT TO MENTION, AFTER" 

3700 PRINT"YOU PASS THROUGH ONE OF THE 
AIR-LOCK" 

3710 PRINT'DOORS (THERE ARE THREE) ONE OF" 

3720 PRINT'THE 2 REMAINING DOORS WILL BE" 

3730 PRINT 

3740 INPUT'PRESS ENTER";XX 
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3790 PRINT 
3760 PRINT"CLOSED AND SEALED, SO YOU'LL HAVE" 
3770 PRINT"TO USE THE ONE REMAINING DOOR TO" 
3780 PRINT"GET BACK IN." 
3790 PRINT 
3800 PRINT"YOU WILL USE THE FOUR" 
3810 PRINT"ARROW KEYS TO MANIPULATE YOURSELF" 
3820 PRINT'AROUND THE COURSE AREA, USE THE" 
3830 PRINT"LEFT, RIGHT, UP, AND DOWN ARROW" 
3840 PRINT"KEYS. 4. ONLY!" 

38300 PRINT 
&0 PRINT"PRESS ENTER NOW AND "jA$ 
О INPUT"WILL TAKE THE FIRST RUN" ;XX 
70 CLS 
00 Ri-1iRZ-l 
3710 T$-A$!RE-O 
3920 GOTOSO 


= 
38 
39 


tad e GJ ол (бл Ge 
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DRIVER 


Flowchart 
City limits 


“Wanna drag???” The computer will supply everything needed for your 
friend and you to take off at speeds over 200 m.p.h. Naturally, the person 
crossing the finish line first will be the winner. One more thing: don’t jump 
the gun while the computer is "staging" the race. You'll lose automatically if 
you do!! 


Sample Run 
>>> DRIVER <<< 


INSTRUCTIONS (Y/N)? Y 


YOU AND A FRIEND WILL STRAP 

ON SEAT BELTS AND RACE 

ONE ANOTHER TO A SMOKEY FINISH. 
IMMEDIATELY AFTER YOU ENTER TWO 
DRIVERS’ NAMES, THE COMPUTER WILL 
CLEAR THE SCREEN, DRAW THE 

DRAG STRIP AND BEGIN STAGING. 

THE DRIVER IN THE LEFT LANE 

WILL USE THE UP ARROW KEY 

TO MOVE HIS/HER DRAGSTER. 


ENTER? 
THE DRIVER IN THE RIGHT LANE 


WILL USE THE RIGHT ARROW KEY 
TO MOVE HIS/HER DRAGSTER. 
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START 


qe 


Yes 
Pri 


rint 
instructions 


Input names 
set counters 
Staging 


Driver 
disqualified 


Yes 


OK 


Print 
winner 
Print 
top speed 


© 


Мо 


$ 


Time 
limit 


Flowchart for Driver 
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ONLY WHEN THE STAGE LIGHTS HAVE 
REACHED 7 SHOULD YOU PRESS 

THE KEY FOR YOUR LANE. | 
ATTEMPTING TO START BEFORE 
YOUR OPPONENT WILL GET YOU 
DISQUALIFIED, AND YOUR OPPONENT 


WILL AUTOMATICALLY WIN. 
SO SIT BACK...FASTEN YOUR BELTS 
AND PRESS ENTER? 


2 DRIVER’S NAMES? DAVE 
2? KAREN 


* Staging * 


nej +++ +++ +++ ++ +++ 


+H 


Driver: 
Speed: 


Driver: 
Speed: 


Program Listing 


10 REM PROGRAM TITLE: DRIVER 
20 CLEAR 200 


30 CLSiRANDOM 

40 PRINT TAB(15);"2>> DRIVER <<<" 
43 PRINT 

50 PRINT"INSTRUCTIONS (Y/N)"; 


206 


әз INPUT T$ 

40 IF T$="N" THEN 400 

65 PRINT"YOU AND A FRIEND WILL STRAP" 

70 PRINT"ON SEAT BELTS AND RACE" 

75 PRINT"ONE ANOTHER TO A SMOKEY FINISH." 
SO PRINT'IMMEDIATELY AFTER YOU ENTER TWO" 
әз PRINT'DRIVERS NAMES, THE COMPUTER WILL" 
90 PRINT"CLEAR THE SCREEN, DRAW THE" 

95 PRINT"DRAG STRIP AND BEGIN STAGING." 
100 PRINT"THE DRIVER FOR THE LEFT LANE" 
105 PRINT"WILL USE THE UP ARROW KEY" 

110 PRINT'TO MOVE HIS/HER DRAGSTER." 

115 INPUT"ENTER";T$ 

120 CLS 

125 PRINT'THE DRIVER IN THE RIGHT LANE" 
130 PRINT"WILL USE THE RIGHT ARROW KEY" 
135 PRINT'TO MOVE HIS/HER DRAGSTER." 

140 PRINT'ONLY WHEN THE STAGE LIGHTS HAVE" 
145 PRINT'REACHED €75 SHOULD YOU PRESS" 
150 PRINT'THE KEY FOR YOUR LANE." 

155 PRINT'ATTEMPTING TO START BEFORE" 

160 PRINT'VOUR OPPONENT WILL GET YOU" 
165 PRINT'DISQUALIFIED, AND YOUR OPPONENT" 
170 PRINT"WILL AUTOMATICALLY WIN." 

175 PRINT'SO SIT BACK...FASTEN YOUR BELTS" 
130 INPUT'AND PRESS ENTER";T$ 

185 PRINT 

190 PRINT 

400 INPUT"Z DRIVER'S NAMES"';0$,W$ 

410 CLS 

420 IF DD=1 THEN 510 

470 Y$-STRING$(3,1915U$-"" 

480 D$-CHR$(G2XYL$-STRING$(17,45) 

490 X$=CHR$(162)+CHR$(170)+CHRS$(162) 

200 A$=STRINGS(5,191)+CHRS$(32)+CHRS$(43) 

505 B$ZCHR$( 34 CHR$(G2)* STRING$(5,191) 

310 А=15:А1=35:Һ=А1+5:84=919:45=927:6=1:р=1 
320 PRINT@A,A$; 

529 PRINTQGA*13,"I"j 

330 PRINTQA1,B$; 

339 IF A279 PRINTQGA*5,L$j 

240 IF А>-895 THEN A6-AS54*3:GOTO565 

345 IF G=9 FZA*1iF1-A14*3IF3-2FiFA4-F1 

950 GzG*1:A2A*641A1-A1*64 
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560 GOTOSZO 
945 GOSUB1200 
270 РКІМТ(8А4,Х%; 
380 PRINT(2A5,X$j 
Seo P3=P3+50}P4=P4+50iP7=PsiPe=P4 
өза P7=P3+RND(ZO)PS=P4+RND(Z0) 
270 K=PEEK (15340) 
975 IF NN=0 AND P3<>0 OR P4<>0 THEN 1430 
£00 REM DRIVER 7? 
605 IF K=% THEN 630 
&10 IF K=44 THEN 640 
620 IF K-72 THEN 720 
425 IF D=7 THEN 1520 
630 IF H=0 СОТО1100 ELSE 1150 
540 REM RIGHT LANE 
650 PRINT@AS," 'j 
452 PRINTQGSZ2*7,PA*P1/2j 
640 AS-AZ-PIIV-V-Pi 
670 IF AS-KX THEN 800 ELSE 570 
680 REM LEFT LANE 
690 PRINT@A4," "$ 
700 PRINT@S1+7,P3+P2/2} 
705 А4=А4-Р2:Х=Х-Р2 
719 IF A4=KK THEN 500 ELSE 570 
720 REM BOTH LANES 
25 REM E3-P3*25iPA-P4*25 
730 PRINT(QA4," "$ 
740 PRINT(GAS," "$ 
745 PRINT(351-*7,F7j 
750 РВІМТ(52+7,РЕ; 
755 А4= А4-Р2:Х=Х-Р2 
760 А5=АЗ-Рі{Ү=Ү-Рі 
770 IF A4=KK THEN 800 
780 IF AS=KX THEN 800 
725 IF K=8 THEN 450 
790 IF К-64 THEN 640 
798 GOTOS70 
200 REM FINISHED 
210 PRINT@O,"FINISHED"} 
әго FOR I21TO1200:NEXT 
230 CLSITR-TRHI 
540 REM PRINT WINNER 
S50 REM CHECK FOR DEFAULT DRIVER 
G40 IF U$z»"" THEN 1660 
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870 IF X-V THEN 1050 
eso IF X>¥ THEN PRINT М%ИСОТО9ОО 
290 PRINT Q$; 
900 PRINT" WINS THIS RACE." 
710 PRINT"TOP SPEED 
920 IF Х>Ү PRINT P8iGOTO?40 
930 PRINT P7 
940 PRINT ' TOTAL RACES:"jJTR 
950 PRINT 
960 INPUT"RACE AGAIN (Ү /МУЗТ% 
970 IF T$="N" THEN 1800 
980 REM ANOTHER DRAG 
1000 Р5=0:Р4=0:Р7=0:РЕ=0:00=1 
1010 PRINT"SAME DRIVERS (Y/N)"; 
1020 INFUT DD$ 
| {O30 IF DD$z2"N" THEN 400 
1040 GOTO410 
1050 PRINT"YOUR SPEEDS WERE EQUAL...YOU TIED!" 
1060 GOTO740 
1100 REM STAGE 
1110 REM FOR START 
1120 PRINTGF,;Dj 
1130 PRINT(QF1,Dj 
1135 PRINT((52-320)," "; 
1140 IF D<>7 THEN H=1:GOTOS90 
1150 F=F+44;F1=F1+64 
1155 IF 0<=3 PRINTQ(S2-320),"* STAGING ж") 
1140 FOR T-1TO100i:iNEXT 
1170 PRINTEF-64,V$; 
1180 PRINTQF1-64,Y$; 
1185 IF П>-/ GOTO1400 
1190 D-D*1:GOTO1120 
1200 REM SPEED FACTORS 
1210 FOR I2:1TO3 
1220 FOR Jz1TO2 
1230 P12RND(2) 
1240 PZ-RND(2) 
1250 NEXT JI 
1260 IF Pl=1 Pi=1278:KX=-97 
1270 IF P1z2 P1z192IK Х--33 
1280 IF P2721 Р2-128ІКК--105 
1290 IF P222 Р2-192ІКК--41 
1300 IF Рі-Р2 THEN 1200 
1305 X=AGtY=X 
1310 GOTO1400 
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1400 F-F31F1-FA1H-O 
1410 REM TIME LOOP BEFORE END 
1415 FOR T-1TO100:NEXT 
1420 GOTO590 
1430 IF K=0 THEN 600 
1440 IF D<>7 THEN 1440 
1450 GOTO400 
1460 IF Х<Ү THEN 1480 
1470 Il-11US-WSIGOTO1490 
1480 П-21/%-0% 
1490 PRINTG@F,Y$} 
1500 PRINT@F1,Y$} 
1510 NN-1:GOTO00 
1520 FOR I-1TO150 
1530 K=PEEK(15340) 
1535 IF K-0 THEN NEXT:GOTO1555 
1540 GOTO590 
1550 PRINTE(SZ-320),' 2 
1555 PRINTEO, 
1560 PRINT"## TIME ##"} 
1570 FOR I=1TO1000:NEXT 
1580 СІ5:60Т0950 
1600 PRINTGA-79,"DRIVER! "jQ$j 
1510 PRINTQ(A148)-64,"DRIVER! "W$; 
1520 51=А-14152=А1+9 

1630 PRINTGS!,"SPEED:"} 
1440 PRINT@S2,"SPEED!"} 
1450 RETURN 
1660 REM DISQUALIFIED DRIVER 
1470 ON II GOTO 1680,1690 
1680 PRINT Q$:1GOTO1700 
1690 PRINT W$; 
1700 PRINT" AUTOMATICALLY WINS THIS DRAG." 
1710 ON II GOTO 1720,1730 
1720 PRINT W$11GOTO1740 
1730 PRINT 0%; 
1740 PRINT" HAS BEEN DISQUALIFIED !!!" 
1750 II-0:U$-"":NN-0 
1760 GOTO940 
1800 REM END 
1810 CLS 
1820 PRINT 
1830 PRINT"END OF << DRIVER >>" 
1840 END 
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War and Logic Games 


CONTROL THE ROBOT 


> < 


А 


L 


Б 


0 © Ki < 


You are in total control of a robot (that is, within a few limits). Your robot 1s 
equipped with one arm that can be shortened or lengthened and an end 
effector (a set of fingers) that can grasp. You have a delivery to make, so get 
started!! 


Sample Run 


CONTROL THE ROBOT 


SEE INSTRUCTIONS? YES 
YOU WILL MOVE A COMPUTER ROBOT, 
FROM THE LEFT SIDE OF YOUR 


VIDEO TO THE RIGHT. ON THE 

WAY YOU WILL PICK UP A DELIVERY 
LOAD AND PLACE IT IN A CONVEYOR 
LOCATED AT THE RIGHT SIDE OF 
YOUR VIDEO. YOU WILL SEE A LIST 

OF THE COMMANDS YOU CAN USE TO 
CONTROL THE ROBOT. TO USE A COM- 
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Yes 


Print 
instructions 


Print 
commands 


Command 
Select 


Input А(І) 
Goto 
command 
Retract 
upper arm 
Extend 
upper arm 
Extend /retract 
lower arm 


Move unit 
left /right 


Test 
arguments 


Flowchart for Control the Robot 
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Ves 


Execute 
commands 


No 


Complete 


MAND, ENTER THE LETTER YOU SEE 
TO THE LEFT OF THAT COMMAND. 


PRESS ENTER? 


THE COMPUTER WILL ASK ‘HOW MANY 
TIMES?’ YOU WILL INPUT A NUMERAL 

TO INDICATE THE NUMBER OF TIMES 
YOU WANT THE ACTION REPEATED. 

YOU MUST INPUT AT LEAST 3 COMMANDS 
BEFORE ‘RUNNING’ THE ROBOT. 

AFTER YOU HAVE PICKED UP THE 

LOAD, TAKE IT TO THE BOX CONVEYOR, 
PLACE IT INSIDE, AND RELEASE IT. 

THEN BY MOVING THE ROBOT AND THE 
UPPER ARM, ‘HIT’ THE DESIGNATED AREA 
TO COMPLETE THE DELIVERY. 


PRESS ENTER TO START? 


(A) RETRACT UPPER ARM 

(B) EXTEND UPPER ARM 

(C) RETRACT LOWER ARM 

(D) EXTEND LOWER ARM 

(E) MOVE ROBOT TO RIGHT 

(F) MOVE ROBOT TO LEFT 

(G) RELEASE LOAD FROM END EFFECTOR 
(H) EXECUTE COMMANDS ENTERED 

(I) CANCEL PROGRAM 


Hit to complete 
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Program Listing 


10 REM PROGRAM TITLE: CONTROL THE ROBOT 

20 CLEAR 200;DIM A(72),T(72) 

30 CLS:RANDOM 

40 PRINT TAB(10);"CONTROL THE ROBOT" 

90 PRINT 

&0 INPUT"SEE INSTRUCTIONS"; X$ 

70 IF X$-"N" THEN 310 

50 PRINT 

30 PRINT"YOU WILL MOVE А COMPUTER ROBOT," 
100 PRINT"FROM THE LEFT SIDE OF YOUR" 

110 PRINT'VIDEO TO THE RIGHT, ON THE" 

120 PRINT'WAY YOU WILL PICK UP A DELIVERY" 
130 PRINT'LOAD AND PLACE IT IN A CONVEYOR" 
140 PRINT'LOCATED AT THE RIGHT SIDE OF" 

130 PRINT" YOUR VIDEO, YOU WILL SEE A LIST" 
200 PRINT'OF THE COMMANDS YOU WILL USE TO" 
205 PRINT'CONTROL THE ROBOT, TO USE А COM-' 
210 PRINT'MAND; ENTER THE LETTER YOU SEE" 
215 PRINT'TO THE LEFT OF THAT COMMAND." 

216 PRINT 

217 INPUT'PRESS ENTER";X:CLS 

220 PRINT'THE COMPUTER WILL THEN ASK" 

275 PRINT''HOW MANY TIMES?’ YOU WILL" 

240 PRINT"INPUT À NUMERAL TO INDICATE THE" 
Z22 PRINT'NUMBER OF TIMES YOU WANT THE" 
237 PRINT'ACTION REPEATED." 

240 PRINT"YOU MUST INPUT AT LEAST 3 COMMANDS" 
250 PRINT"BEFORE 'RUNNINS' THE ROBOT." 

255 PRINT'AFTER YOU HAVE PICKED UP THE" 

260 PRINT"LOAD, TAKE IT TO THE BOX CONVEYOR" 
245 PRINT"PLACE IT INSIDE, AND RELEASE IT." 
270 PRINT'THEN, BY MOVING THE ROBOT AND THE" 
279 PRINTTUPFER ARM, ‘HIT’ THE DESIGNATED AREA" 
2150 PRINT"TO COMPLETE THE DELIVERY," 

290 PRINT 

300 INPUT"PRESS ENTER TO START";X 

310 CLS 

340 Q=0 

320 PRINT@Q,"(A) RETRACT UPPER ARM" 

360 GOSUBS50 

370 PRINT@Q,"(B) EXTEND UPPER ARM" 

380 GOSUBSS0 
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390 PRINT@Q,"(C) RETRACT LOWER ARM" 

400 GOSUBS50 

410 PRINT(3G,"(D) EXTEND LOWER ARM" 

420 GOSUBS50 

430 PRINT(3G,"(E? MOVE ROBOT TO RIGHT" 

440 GOSUBS50 

450 PRINT@Q,"(F) MOVE ROBOT TO LEFT" 

460 GOSUB550 
.470 PRINTQ@Q,"(G) RELEASE LOAD FROM END EFFECTOR" 
480 GOSUB550 

470 PRINT@Q,"(H) EXECUTE COMMANDS ENTERED" 
300 GOSUBSS0 

510 PRINT@Q,"(I) CANCEL PROGRAM" 

240 GOTOSS0 

250 Q=Q+é64;RETURN 

530 GOTO1100 

00 REM COMMANDS READY 

410 I=1 

530 ON A(I) GOTO 635,690,720,850,920,1000,1430,1300,2700 
635 IF М<-15 GOSUB1200:GOTOZ2000 

640 REM RETRACT UPPER ARM 

648 FOR X=M+iTOM-1:RESET(X,K+1){NEXT:M=M-1 
650 FOR X=J TOMiSET(X,K+1)}\NEXT 

655 FOR X=NiTON‘SRESET(M+1,X NEXT 

660 FOR X-NITONISET(M,XXNEXT 

665 RESET(M,N+1)}}RESET(M+2,N+1) 

670 RESET(M,N*ZURESET(M*2,N*2) 

475 SET(M-1,N+1SET(M+1,N+1) 

676 IF TR=1 SET(M,N+1) 

680 GOTO1300 

о90 REM EXTEND UPPER ARM 

700 IF ABS(M-J)»212 GOSUB1200:GOTO2000 

710 FOR XzJ*12TOM-1:RESET(X,K*1) NEXT 

720 FOR X-JTOM-*1:!SET(X,K*1YNEXTIM-M-*1 

725 IF TT=1 AND POINT(X,K*1) THEN 1940 

724 IF TT=0 AND POINT(X,K+1) THEN 1975 

727 IF TT-0 AND TR=0 AND POINT(V3-1,V4) THEN 1610 
730 FOR X=N1+1TON:RESET(M-1,X)NEXT 

740 FOR X=N1+1TONi‘SET(M,X NEXT 

742 IF POINT(M+1,X) THEN 7500 

745 M-M-1 

750 RESET(M-1,N+1){RESET(M+1,N+1) 

760 SET(M,N+1)5SET(M+2,N+1) 
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763 IF TR=1 SET(M+1,N+1) 

770 M=M+1 

780 GOTO1300 

770 REM RETRACT LOWER ARM 

795 IF М<=з5 GOSUB1200:GOTO2000 

800 FOR Х=МіТОМ:КЕЅЕТ(М,Х:МЕХТ:М=М-1 

#10 FOR XNITONSSET(M,XX«NEXT 

615 IF TR=1 RESET(M,N*2) 

820 RESET(M-1,N*2Y RESET(M*1,N*2) 

530 SET(M-1,N*1XSET(OM*1,N*1) 

аза IF TR=1 SET(M,N+1) 

540 СОТО1300 

650 REM EXTEND LOWER ARM 

360 IF N>=40 GOSUBI200;GOTQOZ000 

270 FOR X-NITONIRESET(M,XHNEXTiIN-NHiI 
| ġel FOR X-NITONISET(IM,XNEXT 

әз ІР TR=1 AND POINT(M-Z,N*1) THEN 2500 

әсә IF ТК=1 AND POINT(M+2,N+1) THEN 2500 

30 RESET(M-1,N);RESET(M+1,N) 
ovo IF TR=1 SET(M,N+1) 

700 SET(M-1,N+1)SET(M+1 ,N+1) 

705 IF MM=0 AND POINT(M,N+1) THEN 1400 

910 ТЕ POINT(V3,V4-1) THEN 1600 

715 GOTO1300 

320 REM MOVE UNIT TO RIGHT 

950 FOR XzVITOVZIRESET(V,X) 

955 SET(V*6,XY NEXT 

9260 V1IZVZt1IVZ-V2t61V-V-2 

970 FOR Х-УІТОУ КЕБЕТ(У,Х) 

972 SET(V+10,XSNEXT 

950 IF У-65 THEN HL=39 ELSE HL=40 

985 Ј=Ј+] 

990 VV4*3iIV1zV1-3iIVZzVZ2-6 

995 GOTO710 

1000 REM MOVE UNIT TO LEFT 

1005 IF V<=3 GOSUB1200:GOTO2000 

1010 FOR X=ViTOV2:RESET(V+5,X) 

1015 SET(V-1,X)SET(V+5,K+1 NEXT 

1020 V1I=V24LiVz=V2+6iV=V-3 

1025 FOR X-VITOVZIRESET(VH410,X) 

1030 SET(V,XXUNEXT 
1035 J2J-1 


Ж, e re oe 
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1040 VzV*21V1zV1-31V22V2-6 

1045 GOTO435 

1100 J241K 2361L741 

1110 FOR X=KTOLiSET(W ,XYNEXT 

1115 IF J<=12 THEN J=J+1:GOTO1110 
1120 J-ĠIL-KIK-K-3 

1125 FOR X=KTOLi‘SET(W,XNEXT 

1130 IF J<=10 THEN J=J+1:GOTOi125 
1135 FOR XJ TOJ *14:18ET(OX,K * 17NEXT 
1140 FOR Х=К+іТОК+5:5ЕТ(Ј+14,Х):МЕХТ 
1145 SET(J+13,K+é6)SET(J+15,K+6) 

1150 M=J+14:N=K+S3N1=N-4 

1155 VazJ -5i!V1zK:iV22L-11V32401V4Az41 
1158 Q=896 

1159 GOSUB1700:)GOTO2000 

1200 REM INVALID COMMAND 

1210 PRINTQG*72, INVALID COMMAND" 
1220 FOR T=1TO1200:NEXT 

1230 PRINTQQ+79," "% 
1240 RETURN 

1300 REM ADVANCE COUNTER 

1305 REM EXECUTE COMMANDS 

1310 IF КИ THEN 1330 

1320 GOTOZOOO 

1330 J=I+1 

1335 PRINT@Q,"EXECUTING"3XX;"COMMANDS." 
1340 СОТО630 

1400 TR=1 

1410 SET(M,N+1) 

1420 СОТО1300 

1430 IF TR=1 TR=0:GOTO1470 

1440 GOSUBZOZO 

1450 PRINT"END EFFECTOR EMPTY..." 
1460 PJ=1:GOTOZ32Z0 

1470 WW=N+1 

1480 RESET(M,WW) 

1490 IF WW<=HL THEN HJ=1:GOTO1510 
1500 SET(M,WW) 

1505 GOTO1800 

1510 WWZWW-*1 

1520 SET(M,WW):GOTO1 480 

1600 REM LOAD CRUSHED 

1410 GOSUB2020 

1620 PRINT" YOU HAVE CRUSHED THE LOAD !!" 
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1430 GOSUBZ540 

1640 PRINT@Q," " 

1645 IF PL=1 PL=OiTR=0:GOTOs10 

1450 GOSUBZOZO 

1440 PRINT" YOU'LL HAVE TO START OVER..." 

1670 PL-1:GOTO1430 

1700 FOR XzV3*40TOV 3450 

1710 SET(X,V3+1 NEXT 

1720 FOR XzVZ2*3TOVZz*5 

1730 SET(V3*40,XY NEXT 

1740 FOR X-VZ-ITOVZH5 

1750 SET(V34*50,XXY NEXT 

1755 SET(V3*48,VZ2-1X BET(V3*49,U2-1) 

1760 PRINT(2G-1972*46,CHR$(935;" HIT TO COMPLETE"; 

1745 GOSUB1900 

1770 RETURN 

1800 REM LOAD RELEASED 

1810 TR=O:TT=1 

1220 IF HJ=1 THEN 1850 

1830 SET(M,WW-1) 

1540 GOTO1300 

1850 GOSUBZO20 

1855 PRINT"YOU HAVE DAMAGED THE " 

1840 GOSUBZ2540:GOSUBZ070 

1845 PRINT"DELIVERY LOAD BY ' 

1870 GOSUBZS540:GOSUBZOZO 

1875 PRINT"NEEDLESSLY DROPPING IT !!!" 
S80 GOSUBZ540:;GOSUBZ0726 

18 ӨЗ PRINT" " 


T 70 Үз RND(75 1) 

1910 IF V3i-30 THEN 1900 

1920 SET(V3,V4) 

1930 RETURN 

1940 REM COMPLETED 

1945 GOSUBZOZO 

1950 PRINT"VERY WELL DONE !!' " 
1935 GOSUBZ2540 

1960 GOSUBZ2020 

1945 PRINT"DELIVERY COMPLETED..." 
1970 GOSUBZ2540:G0T102700 

1975 GOSUB2020 

1930 PRINT"YOU HAVE FAILED TO DELIVER" 
19835 GOSUBZ340 
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1936 IF PK=1 PK=0:;GOTO1450 
1990 GOSUB2020 
1995 PRINT"THE REQUIRED LOAD!!! " 
1996 PK=1:GOTO1985 
2000 REM ENTRY COMMANDS 
2005 І=1:ХХ=0 
2010 GOSUBZ020:GOTO2030 
2020 PRINTQG, RETURN 
2030 REM COMMANDS 
2040 IF 1<=1 PRINT"ENTER YOUR COMMANDS"51GOTO2050 
2045 PRINT"LETTER () COMMAND"; 
2050 INPUT A$ 
2055 IF A$="" GOSUB1200;GOSUB2020:GOTO2040 
2040 A(D-ASC(A$)-64 
2065 IF А)<=0 GOSUB1200:GOSUBZ2020:GOTO2040 
2070 IF А(1)=8 THEN 2300 
2075 IF A(D=7 TID-15GOTOZZ30 
2076 IF A(I)-9 THEN 2700 
2080 GOTO2200 
2090 GOSUBZ020 
2100 PRINT"DATA IN MEMORY esse "; 
2110 FOR 00-1ТО35ОМЕХТ 
2120 GOSUBZOZO 
2140 GOTO2040 
2200 PRINTQ@Q," 
| 2203 GOSUBZ020 
2210 PRINT'HOW MANY TIMES"; 
2220 INPUT ТА) 
2222 IF ТАх-0 GOSUB1200:GOTOZ2010 
2225 IF ТО)>-25 GOSUB1200;GOTOZ010 
2230 W=TSY=1:XX=XX+1 
2240 A(W)- AC) 
2250 IF Y<>T(I) THEN 2270 
2260 T=W+1iGOTOZ090 
a Y= Y+iW= ы 


300 GOSUB2020 

305 IF XX<=2 THEN 2400 

310 PRINT"DATA PROCESSED - ROBOT READY." 
20 GOSUBZ2540 

330 PRINT(@Q," "s 

35 IF PJ=1 PJ=0:;GOTOzZ010 

о W=I 


B a ON RS РӘ Рә P 
өзіл QJ іл CO Qi GO 


I T ЖА hs 
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2350 GOTO600 

2400 PRINT"NOT ENOUGH DATA ENTRYS..." 
2410 GOSUB2540 

2420 PRINTQQ," н 

2430 005082020 

2440 PRINT"CONTINUE PLEASE." 

2450 PI=1 

2460 GOTOZ320 | 

2500 REM DAMAGED END EFFECTOR 

2510 GOSUB2020 

2520 PRINT"YOU HAVE DAMAGED THE END" 
2530 GOSUB2540:GOTO2550 

2540 FOR QG-1TO900!NEXTIRETURN 

2550 GOSUB2020 

2560 PRINT"EFFECTOR...AND CRUSHED THE" 
2570 GOSUB2540!GOSUB2020 

2580 PRINT"DELIVERY LOAD... a 

2590 GOSUB2540 

2600 GOTO1650 

2700 GOSUB2020 

2710 PRINT"PROGRAM TERMINATED... " 
2720 REM PRESS ‘BREAK’ TO END 

2730 GOTO2730 
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RANDOM WAR WITH YOUR COMPUTER 


513264 
653412 


124635 = — 


351426 


654123 
513246 


You lose!! 


Prime objective: to match your computer by placing blocks exactly where it 
did. You won't get by with cheating! You'll understand why the word “war” 
was included in the title after you have played one game. 


Sample Run 


RANDOM WAR WITH YOUR COMPUTER 
INSTRUCTIONS ?YES 


THE GAME IS QUITE SIMPLE: YOU WILL 
BE AT WAR WITH YOUR COMPUTER'S 
RANDOM FUNCTION. THE PLAYING FIELD 
WILL HAVE 6 ROWS (A-F) AND 4 COLUMNS 
(1-4). THE COMPUTER WILL PLAY FIRST. 
IT WILL RANDOMLY PLACE BLOCKS ON 
EACH COLUMN (1-4) IN ROW 'A'. (YOU 
WILL NOT SEE THESE. YOU WILL THEN 
PLAY. USE THE RIGHT ARROW KEY 

TO MOVE YOUR BLOCK RIGHT (INTO 

A ROW), THEN USING THE DOWN ARROW 
KEY TO STOP YOUR BLOCK WHERE- 
EVER YOU THINK THE COMPUTER HAS 
PLACED ONE. 
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START 


Set 
strings 


| 


Сотриїег 
Yes play 


Output 
instructions 


II-RND(4) 
for move 


Set 
graphics 
Ves 
Plaver No 
select Move-set 
computer 


piece 
O No 
Yes 
User's play Cone 
piece 
<> Yes Test for 
No points 


Move block Move block 
down right 


К> =990 


Үеѕ 


K=K+8 
No 
No 


STOP 
Yes 


No 


Yes 

Yes 

No 
cheating!! 


Flowchart for Random War with your Computer 
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PRESS ENTER? 


AFTER YOU HAVE PLACED YOUR 4 BLOCKS 

THE COMPUTER WILL CHECK TO SEE 

IF YOU HAVE MADE ANY POINTS (50 

POINTS FOR EACH CORRECT PLACEMENT). 

YOU WILL THEN PLACE 4 BLOCKS IN ROW 

‘B’. THEN THE COMPUTER WILL TRY TO 

GUESS WHERE VOUR'S ARE. THIS WILL CONTINUE 
UNTIL ALL ROWS HAVE BEEN USED. 

YOU WILL THEN SEE THE FINAL 

SCORE (AND WHO WON). 


PRESS ENTER TO BEGIN2 


YOUR FIRST NAME? USER 


Computer's score User's score 


F F 
|. gd B GS ИШ 7 i $ fi 


Program Listing 


10 REM PROGRAM TITLE; RANDOM WAR 
20 REM WITH YOUR COMPUTER 
30 CLSiPO=1 RANDOM 
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40 P$-"MY PLAY" P1$="YOUR PLAY" 
20 TX=70 
60 PRINTTAB(I0);"RANDOM WAR WITH YOUR COMPUTER" 
é PRINT 
70 INPUT"INSTRUCTIONS";X$ 
73 IF X$-"NO" THEN PRINT:GOTO190 
80 PRINT 
ӛз РКІМТ"ТНЕ GAME IS QUITE SIMPLE: YOU WILL" 
70 PRINT'BE AT WAR WITH YOUR COMPUTER'S" 
95 PRINT'RANDOM FUNCTION, THE PLAYING FIELD" 
100 PRINT'WILL HAVE & ROWS (A-F) AND 4 COLUMNS" 
102 PRINT'(l-4), THE COMPUTER WILL PLAY FIRST." 
110 PRINT'IT WILL RANDOMLY PLACE BLOCKS ON" 
119 PRINT"EACH COLUMN (1-4) IN ROW ‘А’, (YOU" 
120 PRINT'WILL NOT SEE THESE.) YOU WILL THEN" 
ża PRINT"PLAY, USING THE RIGHT ARROW KEY" 

130 PRINT"TO MOVE YOUR BLOCK RIGHT (INTO" 
i35 PRINT"A ROW), THEN USING THE DOWN ARROW" 
140 PRINT"KEY, TO STOP YOUR BLOCK WHERE-" 
143 PRINT'EVER YOU THINK THE COMPUTER HAS" 
150 PRINT'PLACED ONE." 
151 INPUT"PRESS ENTER";XX:CLS 
155 PRINT"AFTER YOU HAVE PLACED YOUR 4 BLOCKS" 
160 PRINT'THE COMPUTER WILL CHECK TO SEE" 
165 PRINT'IF YOU HAVE MADE ANY POINTS (50" 
170 PRINT'POINTS FOR EACH CORRECT PLACEMENT)" 
175 РБІМТ"ҮОУ WILL THEN PLACE 4 BLOCKS IN ROW" 
150 PRINT'’B’, THEN THE COMPUTER WILL TRY TO" 
185 PRINT'GUESS WHERE YOURS ARE, THIS WILL 

CONTINUE" 

: PRINT'UNTIL ALL ROWS HAVE BEEN USED" 

PRINT'(A-F), YOU WILL THEN SEE THE FINAL" 

; PRINT'SCORE (AND WHO ИОМ." 

9 INPUT"PRESS ENTER TO BEGIN";XX:PRINT 

ü INPUT" YOUR FIRST NAME";A$ 

73 CLS 
00 FOR X=0TO47iSET(O,XSET(1,X) 

210 SET(126,XYBET(127, X YNEXT 
220 FOR Xz0TO127iSET(X,0)SET(COC,1) 
230 SET(X ,446):SET(X,47)3NEXT 
235 GOSUB1100 
240 Ү=& 
250 FOR X=0TO127:5SET(X,Y) 
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260 IF X=50 X=74 

270 NEXT 

280 IF Ү<=36 THEN Y*Y*6:GOTO250 
290 Vz65iJ 219 31I71 

300 PRINTGJ,CHR$(V) 

305 PRINT(3J *60,CHR$(V) 

310 A(CD-ASC(CHR$(V)-641MGOP-AQD 
312 J (DZITK(D2I 

315 IF J=833 THEN 350 

320 У-У%157-7%12841-1%1 

330 GOTO300 

330 М-1//-44/7-7%504121 

360 PRINTQJ,M; 

365 PRINT(9J *36,Uj 

370 X(G)-MiG(O-X(G) 

375 IF М<=3 THEN 390 

380 GOTO410 

390 M=M+1:U=U-1 

395 J2J *6lI-7I*1 

400 GOTO360 

410 X$-STRING$(4,143) 

420 C219 51Y 2230 

430 FOR I-1TO4 

440 С(П)=С:С=С+6 

450 T(D-TIX-THĠ 

460 NEXT 

490 СОТО540 

300 REM WHOSE PLAY 

310 IF JK=1 JK-OIRT-0:GOTOS40 
315 JKsi 

320 PRINT@A1," 5 

530 PRINTQA2,P1$5:GOTO700 
340 PRINT(2A2," " 

350 РКІМТ(ӘА1,Р%; 

600 REM COMPUTER'S PLAY 
605 G=1:CP=1;W=W+1liTX=TX-10 
806 IF TX<=0 TX=0 

610 II-RND(4) 

620 IF X(II)-0 THEN 610 

625 PIG)=(W-1)#128+C(TT) 

430 ХАП-ОЯҒ RT=0 THEN KL=1:;GOTO640 
635 PRINTGP(G),X $; 

440 FOR T-1TO100: NEXT 

545 N#$(G)=CHRS(W+464);N(G)=IT 
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450 IF Gz-3 THEN G=GtliGOTO4é10 
695 ТЕ Ро-10 THEN JX-2ZIGOTO1280 
660 FOR I-1TOAIX(D-I!FNEXT 

670 IF RT=1 THEN J X-21:GOTO1280 
675 IF P=0 PQ=PQ+1:GOTOS00 

700 REM USERS PLAY 

708 Р=0 

710 K=Y(1)-83I=1 

720 PRINTQK,X$; 

725 FOR T=1TOTX 

730 WWzPEEK(1534Q) 

740 IF WW=44 THEN 800 

745 NEXT 

750 K-K*125 

760 PRINTQK-128," "j 

770 IF K>=990 THEN 795 

790 I-I*1:GOTO720 

798 GOTO710 

GOO REM MOVE RIGHT 

$05 IF PO221 AND K(I)-0 THEN 1165 
210 GOTO1150 

S15 PRINTQK," "j 

920 К=К+8:11=4 

225 PRINT@K,X$}; 

S30 FOR T-1TO25 

зе WW=PEEK (15340) 

ОТЕ WWz16 THEN P=P+1iGOTO?700 
845 NEXT 

850 PRINTQGK," "HIF RT=1 GOSUBI1050 
&60 II-II-1 

&70 IF 11<=0 THEN 910 

550 K=K+4 

890 GOTOSZ5 

900 IF Q(UII)=0 THEN 1165 

97035 GOSUB1000 

910 IF P>=4 THEN 730 

320 GOTO710 

930 K(VX)=O3IF CP<>1 RTz1:GOTO1500 
940 REM GOTO SCORE TOTAL 

950 GOTO1200 

1000 KK(P)=K 

1010 H$(P)=CHR$((1)+64) 

1020 H(P)ZII:G(OISZÓ 

1030 RT=1 


Су 


ба e 
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1035 IF P=1 THEN VX-K(I) 

1040 RETURN 

1050 FOR U=1TOP 

1052 IF KK(U)=0 THEN 1065 

1060 PRINT@KEK(U),X$; 

1065 NEXT 

1070 RETURN 

1100 REM PRINT (à AREAS 

1110 PRINTZ," COMPUTER'S SCORE "$ 
1120 РКІМТ(845," "ҢА% "5 SCORE "; 
1130 Al=82;A2=102 

1140 RETURN 

1150 REM CHEATING 7 

1152 IF P=0 THEN 1160 

1155 IF Г>УХ THEN 1165 

1140 бОТО815 

1165 PRINTGAZ-77;' € NO CHEATING ж") 
1170 FOR T-1TO1000:NEXT 

1180 FOR T=40TO8SiSET(T,0) 

1185 SET(T,1NEXT 

1190 GOTO750 

1200 REM SCORE TOTAL 

1203 PQ=PQ+1 

1210 IF KL-1 KLz0:GOTO1225 

1220 GOTO1250 

1225 I=1 

1230 PRINT@P(I),X$FOR T=1TOZOO;NEXT 
1240 IF 1<=3 THEN I=I+1;GOTO1230 
1250 PRINT@AI," "; 

1260 PRINT@A?2," " 

1270 IF JK=1 THEN 1330 

1280 FOR I-1TO4 

12770 IF N$(D-H$(I) AND N(OD-H(D THEN 1305 
1300 NEXTIGOTO1310 

1305 X2z2X2*50:1GOTO1300 

1310 PRINTGA1-10,X2; 

1315 IF J X22 THEN 1600 

1320 IF J X21 J X20:GOTO475 

1325 СОТО1500 

1330 REM USERS POINTS 

1340 FOR I-1T04 

1350 IF H$(ID-NS(I) AND H(ID-N(I) THEN 1370 
1360 NEXT:GOTO1380 

1370 X4=X4+50:GOTO1360 
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1350 PRINT(3A2*10,X4j 

1500 IF РО<-? THEN 1520 

1303 IF 77-1 THEN 1400 

1310 JJ=1:;GOTO1210 

1520 REM ANOTHER ROUND 

1530 FOR I-1T04 

1540 QiD=I 

1350 NEXT 

1560 КІ.=0:Р=0 

1570 IF JK=1 JK=0:CP=0:GOTO520 

1580 IF JK=0 JK=1;RT=1:P=0:;GOTOS40 

1600 REM FINISH — TOTAL SCORE 

1605 PRINT@A1," "APRINTQ A147, 

1606 PRINT':54 FINISH ###"; 

1610 FOR Т-1ТО20005МЕХТ 

1620 CLS!IPRINTCHR$(23) 

1630 IF X2=X4 THEN 1690 

1640 IF Х2>Х4 THEN 1720 

1650 PRINT"YOU HAVE DEFEATED THE COMPUTER" 
1650 PRINT"IN THE WAR..." 

1670 PRINT'VERV WELL DONE." 

1680 GOTO1750 

1690 PRINT"YOU HAVE TIED WITH YOUR" 
1700 PRINT"COMPUTER, SCORE EVEN!" 

1705 PRINT X2" "TO" X 4 "ne" 

1710 GOTO1750 

1720 PRINT'SORRY ";A$;" YOU HAVE LOST..." 
1730 PRINT'RANDOM WAR GAMES JUST AREN'T" 
1740 PRINT"FOR YOU," 

1750 END 
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UNDER ATTACK 


Under Attack is a fast-paced game that will keep you alert at all times. You 
have the weapons to destroy the computer craft that is attacking you, but the 
computer craft is equipped with a force field and you are not. But then again, 
you do have the advantage of being able to move your cannon to the far right 
of the video, where the computer craft is not able to fire upon you. Good 
Luck, captain... 


Sample Run 


UNDER ATTACK 
NEED INSTRUCTIONS (Y/N)? Y 


YOU WILL BE UNDER ATTACK BY A 
COMPUTER CONTROLLED SPACE CRAFT 
THAT WILL MOVE ABOUT YOUR VIDEO 
IN A PRESET PATTERN. YOU WILL 
BEGIN WITH 100 UNITS OF 

LASER POWER. ONLY WHEN BOTH OF 
YOU HAVE EXHAUSTED YOUR POWER WILL 
THE ATTACK END. THE ONE WITH THE 
MOST HITS PER RUN WILL BE 

THE WINNER OF THE BATTLE. AS THE 
COMPUTER CRAFT MOVES ABOUT THE 
VIDEO, YOU WILL NOTICE THREE 


PRESS ENTER? 


DOWN ARROWS FLASHING UNDER THE 
CRAFT, THIS IS THE CRAFTS ‘FORCE 

FIELD’, MEANING YOU CANNOT HIT 

THE CRAFT WHEN THESE ARROWS ARE ‘ON’. 
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List 
instructions 


Randomly 
move craft 


ABS 
(K—INT(R)) 
<=0 


Force field 


message 


Flowchart for Under Attack 
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STOP 


Print winner 
of battle 


Peek 
(A+2)=58 


Continue craft 
movement 


YOUR LASER CANNON IS LOCATED AT 
THE LOWER RIGHT OF THE VIDEO. TO 
MOVE THE CANNON LEFT (TO A CER- 
TAIN POINT) PRESS THE ‘L’ KEY. 

TO MOVE IT RIGHT, PRESS THE ‘R’ KEY. 
TO FIRE YOUR LASER, PRESS THE 
SPACE BAR. YOUR LASER MUST HIT 
THE COMPUTER DIRECTLY IN 


THE CENTER (WHERE THE ASTERISK IS LOCATED) 
TO COUNT AS A HIT. 


PRESS ENTER? 
REMEMBER, THE ATTACK WILL NOT 


END UNTIL BOTH OF YOU HAVE 
EXHAUSTED YOUR SUPPLY OF LASER 


PRESS ENTER NOW TO BEGIN THE ATTACK? 


--) 
v 


xx Force field жж E 


Program Listing | 


10 REM PROGRAM TITLE: UNDER ATTACK 
20 CLSSRANDOM 
30 AL=100;A2=Al 
40 CLS 
50 PRINT TAB(15);"UNDER ATTACK" 
50 PRINT 
70 INPUT"NEED DIRECTIONS (Y/N)"jX$ 
SO IF X$z"N" THEN 270 
70 PRINT 
100 PRINT"YOU WILL BE UNDER ATTACK BY A" 
105 PRINT"COMPUTER CONTROLLED SPACE CRAFT" 
110 PRINT'THAT WILL MOVE ABOUT YOUR VIDEO" 
115 PRINT"IN A PRESET PATTERN, YOU WILL" 
120 PRINT"BOTH BEGIN WITH 100 UNITS OF" 
sa PRINT'LASER POWER, ONLY WHEN BOTH OF" 
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130 PRINT"YOU HAVE EXHAUSTED THIS POWER THE" 
132 PRINT'ATTACK WILL END. THE ONE WITH THE" 
140 PRINT'MOST HITS PER RUN WILL BE" 

143 PRINT'THE WINNER OF THE BATTLE, AS THE" 
130 PRINT'COMPUTER CRAFT MOVES ABOUT THE" 
135 PRINT"VIDEO YOU WILL NOTICE THREE" 

140 INPUT'PRESS ENTER*;XX:CLS 

145 PRINT'DOWN ARROWS FLASHING UNDER THE" 
170 PRINT'CRAFT, THIS IS THE CRAFTS 'FORCE" 
173 PRINT'FIELD'; MEANING YOU CANNOT HIT" 
150 PRINT'THE CRAFT WHEN THESE ARROWS ARE 'ON'," 
153 PRINT'TOUR LASER CANNON 15 LOCATED АТ" 
190 PRINT'THE LOWER RIGHT OF THE VIDEO, TO" 
172 PRINT'MOVE THE CANNON LEFT (TO A CER-" 
200 PRINT'TAIN POINT) PRESS THE 'L' KEY," 

205 PRINT"TO MOVE IT RIGHT, PRESS THE 'R' KEY." 
210 PRINT"TO FIRE YOUR LASER, PRESS THE" 

215 PRINT'’SPACE BAR’. YOUR LASER MUST HIT" 
220 PRINT'THE COMPUTER CRAFT DIRECTLY IN" 
225 PRINT'THE CENTER (WHERE THE ASTERISK" 
230 PRINT"IS LOCATED) TO COUNT AS A HIT," 

235 INPUT"PRESS ENTER";XX:CLS 

240 PRINT'REMEMBER, THE ATTACK WILL NOT" 
243 PRINT'END UNTIL BOTH OF YOU HAVE" 

250 PRINT'EXHAUSTED YOUR SUPPLY OF LASER" 
255 PRINT"POWER...." 

260 PRINT 

265 INPUT"PRESS ENTER NOW TO BEGIN THE ATTACK";XX 
270 CLS 

300 REM BOUNDARIES 

310 FOR X=0TO127 

320 БЕТ(Х,45)%5ЕТ(Х,46) 

330 SET(X,47NEXT 

340 K-1261E-431IF-9591L$-7"1" 1A A=896 

345 GOSUB350:GOTO400 

350 SET(K,EXSET(OKC* 1,E) 

360 SET(K,E*1XSET(OK*1,E*1) 

370 RETURN 

400 REM COMPUTER CRAFT 

410 REM POKE GRAPHICS 

420 Az154241V72401W-7431U7421272321R70 

430 POKE A,ViPOKE Ati, WiQ=Q+1 

440 POKE А+2,0:РОКЕ A*3,W 
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450 POKE A*4,V*1 

455 I-RND(SXIF Ісі THEN 570 

460 A$-INKEY$ 

465 IF A120 AND А2=0 THEN 1900 

470 GOTO1100 

450 IF Q=55 J=4 

490 IF A-1576? THEN 590 ) 
200 GOSUBSZQ!IF J=0 THEN A-A*691IR-R410,9:GOTO430 
510 GOTOSSO 

520 POKE А,/ІРОКЕ A*4,Z 

530 POKE A*2,77POKE А+3,7 

940 POKE At+t1,Z:IF Ісі THEN 560 

245 RETURN 

550 ON J GOTO 590,520,550,700,740,780,810 
960 POKE А+64,1:РОКЕ А6 РОКЕ A+68,Z 
565 GOTOS45 

570 REM FORCE FIELD 

580 POKE А+64,92:РОКЕ А+66,92:РОКЕ A*68,92 
gen GOTOA60 

770 IF A=15801 THEN 620 

595 IF ABS(K-INT(R))=0 GOSUHB900 

600 GOSUBS201A-ZA*4IR-R48 

610 J=1;GOTO430 

620 IF A=15545 THEN 650 

&30 GOSUBSZOQIA-2A-64 

540 J=2iGOTO430 

650 IF A=15489 THEN 630 

695 IF ABS(K-INT(R))<=0 GOSUB?00 

660 GOSUBSZOTA-A-2ZiR-R-4 

670 J=3iGOTO430 

620 IF M=1 M=0:Q=0:R=0 

690 J=QiGOTO420 

700 IF A=15899 THEN 740 

710 GOSUBS20};A=A+64 

720 IF Q=5? THEN 780 

730 СОТО430 

740 IF A=15575 THEN 770 

745 IF АНО(К-ІМТІНУк-О GOSUB"OO0 

750 GOSUBSZüIA-A-64 

7640 J=RGOTO430 

770 J=3IM=1iGOTO430 

730 IF A=14117 THEN S10 

785 IF ABS(K-INT(R))<=0 GOSUB?00 

790 GOSUBS201A-ZA*AIRZRt3 


233 


SOQ J=4iGOTO4s30 

210 IF 4=1464101 THEN Q2571G0TO740 
S15 IF ABS(K-INT(R))<=0 GOSUB?00 
870 GOSUBS20;A=A-4;R=R-8 

S40 J27iGOTOA430 

700 REM COMPUTER LASER 

705 AY=A/-RND(10) 

"LO IF Avc=0 AZ-OIRETURN 

715 A-A 

920 POKE A,ViPOKE A*1,W 

720 POKE A+3,WiPOKE À44,V41 

940 L-À4z 

250 IF Liz15360 THEN 918 

7355 IF A<=15571 THEN 1015 

760 POKE LZ 

970 IF Li-16178 THEN L=L+19273POKE L;U:GO1 
775 LL44 POKE L,U 

9380 IF POINT(K,E)+POINT(K+1,E)=0 GOSUB103 
990 IF L>=16290 THEN 1010 

1000 GOTO?50 

1010 REM SET USER CANNON 

1015 GOSUB350 RETURN 

1020 GOTOSOO 

1030 REM HIT TO USER 

1035 PRINT@AA;} 

1040 PRINT"### YOU HAVE TAKEN A HIT ###"; 
1045 FOR I=1TO1000iNEXT 

1050 PRINT@AA,; 

1055 PRINT" 

1060 A4=A4+1 

1045 GOTO1700 

1070 RETURN 

1100 REM USERS MOVE 

1110 REM MOVE PYLON / FIRE LASER 
1120 IF A$-"R" THEN 1160 

1130 IF A$-"L" THEN 1240 

1140 IF А$%=" " THEN 1300 

1150 IF MM=0 GOTO4s0 

1155 IF MM-1 MM=O:GOTO1015 

1160 IF K>=1746 THEN 1280 

1163 GOTO1180 

1170 IF К<-/9 THEN 1250 

1120 RESET(K;ENRESET(KH1;E) 

1190 RESET(K,E+1){RESET(K+1,E+1) 
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1700 IF 77-1 K=K-4iF=F-27 ELSE K=K+4iF=F+z 
1210 SET(K;ENSET(KH41;E) 

1220 SET(K,E+i1 SET(K+1,E+1) 

1230 СОТО1280 

1240 REM MOVE CANNON LEFT 

1250 JJ=1 

1220 GOTO1170 

1280 IF JJ=1 JJ=0 

1790 IF MM=0 GOTO480 

1295 IF MM=1 ММ=0:60Т0101% 

1300 REM FIRE LASER (USER) 

1302 IF I=1 THEN 1600 

1305 FFzF:A1-A1-RND(10) 

1308 IF Аі<=0 A1201GOTO1380 

1310 IF F<=100 THEN 1370 

1315 IF PEEK(A*2)-58 THEN 1400 
1320 PRINT(F," "j 

1:330 F=F-64 

1340 PRINT@F,L$; 

1350 GOTO1310 

1370 PRINTQ@F," "; 

1380 F=FF 

1390 GOSUB350:GOTO1280 

1400 REM EXPLODE COMPUTER CRAFT 
1405 С=А+4:РОКЕ А+2,ИРЇ.=А:АЗ=АЗ+] 
1410 IF Ј=1 AND С>-18807 THEN 1500 
1415 IF J=7 AND C2=15551 THEN 1500 
1420 IF J=3 AND C?=15551 THEN 1500 
1425 IF J24 AND C?=15807 THEN 1500 
1430 IF 7-8 AND C2=15551 THEN 1500 
1435 IF 7-6 AND С>=16127 THEN 1500 
1440 ТЕ J=7 AND С>=16127 THEN 1500 
1460 POKE A,Z:IPOKE С,2 

1470 A=A-1iC=C+1 

1420 POKE A,ViPOKE C,V+1 

1490 FOR TI=1TOISINEXTiGOTO1410 
1500 POKE А,ДРОКЕ С,2 

1510 T=1:‘A=PLiG=RND(5) 

1520 POKE А+1,РОКЕ А+3,7 

1920 FOR TIsiTOZOQINEXT 

1540 POKE At+1,WiPOKE At+3,W 

1550 FOR TI-21TOZOONEXT 

1540 IF T<=G THEN T=T+1iGOTO1520 
1570 POKE À*1,Z7POKE А+3,7 
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1520 GOSUB1700 
1590 GOTO1350 
1400 REM FORCE FIELD UP 

1610 PRINTGAA,"** FORCE FIELD ##"; 

1420 FOR TI-1T01000iNEXT 

1430 PRINT@AA," "$ 

1440 GOTO1150 

1700 АО-АА-254 

1705 IF Ai<=0 А1=0 ELSE IF А2<=0 А2=0 

1710 PRINT@AQ,; 

1720 PRINT" YOUR LASER POWER LEFT ="; 

1750 PRINT Al; 

1740 AQ=AQ+64 

1750 PRINT@AQ;; 

1750 PRINT" YOUR HITS TO COMP. CRAFT ="; 

1770 PRINT А2) 

1780 AQ=A0Q+64 

1790 РКІМТ(аАО;; 

1800 PRINT"COMPUTER LASER POWER LEFT ="; 

1810 PRINT А2; 

1820 AQ=AQ+64 

1230 PRINT AO, 

1540 PRINT"COMP. HITS TO YOUR CANNON ="; 

1850 PRINT A4} 

1840 GOTO1070 

1900 REM LASER POWER EXHAUSTED 

1910 PRINTQO,;; 

1970 IF A4>A3 THEN 7070 

1930 IF A4=A3 THEN 2070 

1940 PRINT" YOU HAVE DESTROYED А TOTAL" 

1970 PRINT"OF";A3;"COMPUTER CRAFTS..." 

1980 PRINT"CONGRATULATIONS,..YOU’VE WON" 
1990 PRINT"THE BATTLE..." 

2000 GOTOZIZO 

2020 PRINT'THE COMPUTER HAS HIT YOUR CANNON" 
2030 PRINT'MORE THAN YOU ANTICIPATED..." 

2040 PRINT"A TOTAL OF'jAA;" TIMES..." 

2045 PRINT"SORRY, YOU LOSE." 

2050 GOTOZIZO 

2070 PRINT"NO ONE HAS WON THE BATTLE. THE" 
2080 PRINT"NUMBER OF TIMES YOU HIT THE" 

2070 PRINT"COMPUTER’S CRAFT IS EQUAL TO" 

2100 PRINT'THE NUMBER OF TIMES YOUR CANNON" 
2110 PRINT"WAS HIT..." 

2120 END 
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Appendix A 


Programs That 
Convert to Other Systems 


In order to keep confusion to a minimum, only two other computer systems 
will be dealt with here. They are the PET# and the APPLE II™. Further- 
more, any program you do not see in this appendix will run only on the Radio 
Shack TRS-80 Model I, Level II computer system and the Radio Shack? 
Model III, Level III computer system, because ofthe graphics involved (SET 
/ RESET) and the PEEK and POKE statements. All programs that can be 
converted are explained in the same order as they appeared in the main part 
of the book. All RND statements are given for Applesoft. PET owners will 
have to refer to their manuals. 


Equivalent Statements (Examples) 


The following commands perform equivalent functions: 


Computer Systems (brands)......... 


TRS-809 PET? APPLE IP 
AS-INKEYS СЕТ A$ GET A$ 
CLS РКІЧТ“ К” НОМЕ 


I=RND(5) I-INT(RND((0)*5) I-INT(5sRND(I)) 
The following statements are the same for all three systems. 
A$=“COMPUTER” 
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PRINT MID$(A$,1,1) = C 
PRINT LEFT$(A$,1) = C 
PRINT RIGHT$(A$,1) = R 
PRINT LEN(A$) = 8 

Notice that the length of print statements will have to be shortened if 
you are using the PET computer system, because the video display is 
smaller on the PET than on the other two systems. 


Reverse Order of Operation 


To make this program work on the other systems, delete the following 
lines: 


450,465 ,725,740,770 


These lines are for the second difficulty level, which prints and blanks the 
letters at a certain location on the video. If your system has a function that 
will let you print at (PRINT @ ) different locations on your video, you can 
leave these lines and simply change line 465 (variable W) to match your 
system’s location areas. Be sure to delete line 725. 

The RND (random) function will have to be changed also. Change line 
560 to: 


560 I=INT(26*RND(1)) 
Also change C$=INKEY$ to GET C$ in line 810. 


Line 830 tests for key closures for the time loop. This procedure is the 
same for all systems. 


Color Match 


Only two line changes are required to run this game program on the 
other systems. These are 


520 I=RND(16) 
Change to: 

520 I=INT(16*RND(1)) 
1330 I=RND(4) 

Change to: 

1330 I=INT(4*RND(1)) 


Salt and Pepper 


To run this program on the other systems you will have to know the 
peek addresses for keyboard memory locations. What this function does is 
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check your keyboard addresses. When the condition is met (line 530), the 
program will branch to another line just as it would if the statement had been 
A$=INKEY$ or GET A$. If you do know the PEEK addresses, change the 
address in line 520. Then change the following lines: 


380 A=RND(10) 
Change to: 
380 A=INT(10*RND(1)) 


Change lines 390 through 420 in the same way. 
If your system is not equipped to print at acertain video location, change 
line 580 to: 


580 PRINT:PRINT" :::: TIME ::::” 
Change line 710 to: 
710 PRINT:PRINT 


Finallv change line 510 to: 
PRINT TAB(55);T;'SECONDS LEFT.”; 


Words Together 


As explained in the instructions concerning Salt and Pepper, vou will 
have to know the PEEK addresses for the kevboard memorv locations. Or 
vou can do the following: 


Change line 585 to: 
585 GET Q$:IF Q$=“ " THEN 680 
Also change the following lines: 
615 IF L1« 20 and Q$=“” THEN 585 
660 IF Q$=“ " THEN 680 


These changes will allow you to use the get function, instead of peeking into 
the keyboard memory locations. Press the space bar (at lines 585 and 660), 
instead of pressing the enter or return key. 

Also make the following changes: 


520 IZINT(45* RND(1)) 
590 L=INT(R*RND(1)) (4*RND()) 


The PRINT @ statements will have to be changed to TAB locations 
(providing your system does not have PRINT e) . 


Change the variable E in line 20 to E=25 
Change line 610 to: 
610 L1-INT(R*RND(1)- L) 
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Change line 1180 to: 
1180 I=INT(2*RND(1)) 


The LEFT$, RIGHT$ and MID$ functions are the same for all the 
systems. 


Words of Importance 


Only two changes are required in this program, they are: 


450 F=INT(Q*RND(1)) 
460 T=INT(10*RND()) 


These two lines allow the random selection of the first player (provided that 
more than one person is playing). 


Putting Names Together 


This game program will run as it is on the two other computer systems. 
Mentioned without having to make any changes. The two functions, LEN and 
MID$, are the same for all the systems. 


To the Dogs 


Only minor changes are required to run this game program on the other 
computers. These are: 


Line 860 DELETE 6 960,; 

Line 1045 DELETE e 448, ; 

DELETE lines 1050, 1055 and 1060 
DELETE GOSUB 1050 from line 1020 
DELETE @ 704,; from line 1610 


These statements that must be deleted place the printed messages neatly on 
the screen. Using PRINT instead of PRINT 6 in these statements will just 
produce a carriage return and will have no drastic effects on the display. 


Keep Out of the Gutter 


To run this program on other systems, you need only make the follow- 
ing changes: 


Line 600 

Change A$=INKEY$ to GET A$ 

Line 930 

Change I-RND(9) to I2INT(9*RND(1)) 
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(Motion) Sense of Direction 


Make the following changes for use on the other systems: 


Change line 550 to: 


550 H=INT(50*RND(1)) 
Change line 4020 to: 
Q=INT(17*RND(1)) 


All other program lines should remain the same. 
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Appendix B 


Program 
Changes to Consider 


All changes are only meant as suggestions. You might want to try others of 
your own. To locate the part of a program you want to change, add to, or 
delete, follow the remark statements within the program listing. 


Reverse Order of Operation 


By making several modifications you can have more than three people 
playing at a time; for instance, you could have six players. Change and/or add 
the following lines: 


390 PRINT“HOW MANY PLAYERS (UP TO 6)”; 
410 IF P<=1 OR P>=7 THEN 390 

492 IF P=3 THEN 500 

493 INPUT“PLAYER ff 45 FIRST NAME”;Q3$ 
494 IF P=4 THEN 500 

495 INPUT’ PLAYER f 55 FIRST МАМЕ”; 04% 
496 IF P=5 THEN 500 

498 INPUT"PLAYER ff 65 FIRST NAME";Q5$ 


Change the GOTO statements in lines 680 and 690 to: 
GOTO703 


700 IF RR=3 RR=4:Z$=Q3$:GOTO703 
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701 IF RRz4 RR=5:Z$=Q4$:GOTO703 
702 IF RR=5 RR=6:Z$=Q5$:GOTO704 
703 IF RR=6 RR=1:Z$=Q$:GOTO710 
704 IF RR>P THEN RR=1:Z$=Q$ 
1142 IF K=4 THEN Z$=Q3$:RR=4 
1143 IF K=5 THEN Z$=Q4$:RR=5 
1145 IF K=6 THEN Z$=Q5$:RR=6 
1232 IF RR=4 THEN 1262 
1233 IF RR=5 THEN 1263 
1235 IF RR=6 THEN 1265 
Add to line 1260 :GOTO1270 
1262 T5=T5+T1:PRINT T5:GOTO1270 
1263 T6=T6+T1:PRINT T6:GOTO1270 
1265 T7=T7+T1:PRINT T7 
Add to line 1320:Z$=“”: 


You will also have to change and add more lines to the closing of the 
program starting at line 1430. For instance if you change the program to run 
with 6 players, line 1430 would read: 


1430 IF T2>T3 AND T2>T4 AND T2>T5 AND T2>T6 THEN 1490 


Lines 1440 and 1450 will also have to be changed to include the players you 
have added. (These are arguments to determine the final winner.) Also you 
will have to add more of these arguments between lines 1450 and 1460. Print 
statements will have to be added after line 1540 to accommodate the extra 
players. 

Score values can easily be increased or decreased by changing the 
variable T1 at line 930, I.E., for 50 points per letter, line 930 should read: 


930 T1=T1+50:XC=XC+1 


Color Match 


The colors used in this program can be changed simply by changing the 
string contents B$(I) at lines 420,440,460 and 480. These colors were 
selected because they are part of the widely used basic color group. 

If you feel that you should be able to move a color more (or less) than 2 
spaces, change the number in line 770. As the program stands you can move a 
color two places higher or lower (I.E., 7 to 8 or 7 to 9or 7 to 6 or 7 to 5). If you 
want to increase that number by, say, one, just change the numeral 3 to a 
numeral 4. The line would then read: 


770 IF ABS(U- M)» —24 THEN 1100 


where line 1100 is the print message for an illegal command. Of course, the 
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more you increase that number, the fewer attempts it will take to finish the 
program. 

At level I, the computer will print the original every time you enter a 
zero. This can be modified so that after a certain number of attempts the 
computer will refuse to print the original. Add the following line: 


1205 IF A>=5 THEN 1100 


This line will send the program to the “illegal command” subroutine if the 
user has completed at least 5 attempts when he requests to see the com- 
puter’s original. 


SALT AND PEPPER 


To increase or decrease the time limit, change the variable TT at line 
370. As the program stands, each unit of time is approximately equal to one 
second. You can increase or decrease the length of a unit of time using the 
FOR-NEXT loop located at line 540. That line reads: 


540 FOR І-1Т0500:ХЕХТ 


To shorten the unit, decrease the integer 500; likewise to lengthen it, 
increase the integer 500. 

The number of problems can be changed by changing the number in line 
600. That line reads: 


600 IF K>=26 THEN 900 


To increase or decrease the number of problems, just increase or decrease 
the integer 26. If you do change this integer, you might also want to change 
the statements in lines 910 through 930 so that the numbers are appropriate 
for the number of problems. 

By adding a FOR-NEXT loop, (inserting another line, 815) you can add a 
pause before the problem is erased, for example, 


815 FOR I=1T0750:NEXT 


Now, when the enter key is held down, there will be a short pause before the 
problem is erased. 


Patterns 


You can add other key closures to this program to create different 
drawing effects. 


For example, the space bar plus 
the up arrow key = 136 
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the down arrow key = 144; 
the left arrow key = 160; 
the right arrow key = 192. 


With these added key closure variables you could draw things such as 
‘dotted’ lines. To use these keys, add the following lines to the current 
program, run it and select # 1 LEFT / RIGHT patterns. 


222 IF A=136 THEN 311 

223 IF A=144 THEN 312 

224 IF A=160 THEN 313 

225 IF A=192 THEN 314 

311 YzY-2:K -K-2:GOTO 360 
312 Y=Y+2:K=K+2:GOTO 360 
313 X=X~—2:J=J+2:GOTO 360 
314 X=X+2:J=J—2:GOTO 360 


Using these additional lines, you can hold down the space bar and press any 
one of the four arrow keys to create ‘dotted’ lines in any of the four directions. 
To experiment further, add this line and then run the program. 

101 PRINT @64,A; 

Now each time you press a different key, you can see what its PEEK 
address is (that is, all except for the CLEAR key). To add even more key 
closures for more effects, just remember that each line you add for the 
variables Y, K, X, and J will send the program to line 360. Each variable can 
thus be tested before it is actually set or reset. 


Words Together 


If you find that the words are too complicated or not complicated 
enough, each of the words can easily be changed to meet your own needs. 
The data list for these words begins at line 5000 and runs through line 5140. 
Try to use words that can be divided equally, such as FOREHAND or 
SOMEWHERE. In the second half of the program, the computer might 
choose to have the user select the left or the right half of the word. 

You can experiment with the way pieces of each word are printed by 
changing lines 590, 610, and 640. 

At line 590 increase the number 4 to 7: 


590 L=(RND(R)=RND(7)) 
Change line 605 to: 
605 IF L>=4 AND L<=15 THEN 640 


To have the jumble of letters move to the left faster, change the variable L1 
in line 610 
610 L1=(RND(R)—1):PRINT e E+2,RIGHT$(T$,L+1); 
The blank space at the end of lines 600 and 640 can also be widened to 
add even more confusion. 
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All About Numbers 


If you want your child to learn to count higher than is possible with this 
program as it is, add the following lines: 


986 IF GJ21 AND KL<>0 THEN 2260 
1275 IF KL<>0 THEN R=4:RR=88 
2115 IF GJ=1 THEN 2200 
2200 REM HIGHER COUNT 
2210 PRINT:INPUT“COUNT HIGHER”;L$ 
2220 IF L$<>“YES” AND L$<>“Y" THEN 2120 
2230 IF KL=0 KL= 15 
2240 X=1:CLS:GOTO 425 
2260 KL=KL+15 
2270 IF AA<>KL THEN 1010 
2280 GOTO 1000 


When these lines have been added, the program will allow him or her to go as 
high as he or she wishes. 


All About Numbers II 


You can very easily increase the level of difficulty for the addition 
problems. After your child has mastered the program as it is, you could add 
the following lines: 


3115 REM HIGHER LEVEL OF DIFFICULTY 
3116 WR=1:GOTO 4470 


At line 4475 increase the variable L to what you think your child can handle. If 
you change the variable L to 25 the highest number to be added will be 25. 
The highest possible total will be 50 (25 + 25). The variable X (line 4580) 
selects a random integer value of the variable L for each problem. Also add 
these lines: 


4595 IF X<=9 PRINT TAB(T+1);X;:GOTO 4610 
5355 IF WR=1 THEN 6110 ELSE 6610 
6110 GOSUB 5400:WR=0 


At line 6130, you will probably want to increase the variable L for the 
subtraction problems. Try increasing it to 25. Also add the following line. 


6226 IF G(M)<=9 AND F(M)>=10 THEN PRINT 
TAB(T+1);P$;G(M);:GOTO 6240 

Then change line 6280 to: 

6280 GOTO 6226 
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Anytime you want your child to try problems that are more difficult, 
enter all of the lines listed above. Just keep in mind not to increase the 
variable L so much that your child cannot complete the problems success- 
fully. 


Words of Importance 


The most important change you can make to this game is to change the 
words in the data list. They are located in lines 2000 through 2160. Remark 
tells you what kind of words are in each set. 

You can also change the point system at line 1840. A good idea would be 
to use the LEN function to make the number of points received depend on the 
length of the word. To do this, make the following changes: 


1060 IF U$Z2S$(D THEN PI=PI+LEN(S$())) 
1090 IF U$-C$(I) THEN PI=PI+LEN(C$()) 
1120 IF U$-H$(I) THEN PI=PI+LEN(H$(I)) 
1160 IF U$-ABS(I) THEN PI=PI+LEN(AB$(])) 


Then delete lines 1840 and 1850. 

Another effective idea would be to have each player input their age, 
along with their name. That way, if a player was, for example, 17 and tried to 
use the first difficulty level, simple words, the computer could respond with 
a message such as “YOU ARE TOO OLD FOR THE SIMPLE WORDS.” 
Likewise, if a younger person, say a seven year old, wanted to use the 
second difficulty level, complex words, the computer could display a mes- 
sage like, “YOU ARE TOO YOUNG FOR THE DIFFICULT WORDS’ — 
that is, unless the kid is all brains!!! 


Putting Names Together 


Again, as with the previous program, you can change the names in data 
list as you wish. The names are located at lines 5020, 5030, and 5040. Be 
sure to read the remark statements in lines 5050 through 5100. Instead of 
using first names, you could use the last names of famous people. There are 
quite a few of them that contain letters used more than once. 

You could make the game really tricky by having the computer print the 
numeral below or the numeral above the one you would expect for a given 
letter. For example, the letter A is the first letter of the alphabet. When the 
computer displays the numbers for a name, it could print a zero for A (one 
below), or a two (one above). This change would make the game more 
confusing and more difficult. 


To make the alteration, change line 2050 to 
2050 P(LD)-I- 1:W$(L) 2 MIDS(ASJL, 1) 
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This line would have the computer display the numeral one less than the one 
you would expect. To go one numeral higher, just change the statement to 
P(L)=I+1. These changes will also affect the derived form of the name: you 
will end up with something completely different. 


Finish the Letters 


To make this game harder you may wish to delete two functions. First, 
you may delete the part where the computer gets a letter that 1s contained in 
the actual word and then prints it. Second, you may delete the “GOSUB 425” 
which causes the computer to print the number of letters contained in the 
word. The user would then have to count the underscores, so it would take 
him or her longer to figure out a word. 

Another change you could make, if your younger children are playing, is 
to replace the words in the data list, lines 1030-1100 with easier words. The 
words in that list now are for children over the age of 11. 

If you don’t feel that it’s fair for both you and the computer to lose one 
point with each pass through the alphabet you can delete line 270. Also make 
the appropriate changes in lines 810, 820, and 830 which cause the message 
for this function to be displayed. 


Calendar 


If you are not using the program as an ordinary calendar, you may want 
to have the child input the name of the month being displayed. You could also 
add some extra lines that ask the child to input the names of all seven days of 
the week. After he or she learns the rnonths, you could insert some input 
statements that ask him or her to input the next month. For example, when 
January is printed, the computer will ask “WHAT MONTH IS AFTER 
JANUARY?” before it advances to the next month. This method could also be 
used for the days of the week. Before each advance, have the child input the 
names of all seven days of the week plus the name of the month that follows. 
A counter could be inserted so that they would have to input the days of the 
week for only the first three or four months. 


Clockwork 


There are many changes that you could make within this program. Here 
are a few: 


You can change the scoring system. The number of points for each area (500, 
200, and 50) can be made higher or lower by changing the subscripted 
variables A(4), A(5) and A(6) at lines 50 through 100. The time count can be 
increased or decreased at line 920 (variable C). As it stands, there is a limit 
of 1 minute (60 seconds). 

PEEK statements in lines 2110 through 2130 determine whether or not 
a player is to receive points. You could ‘fine tune’ these point areas by raising 
or lowering the variables Al, A2, and A3 one digit. 


248 


You could modify the program so that a player who fails to make any 
points during his or her turn would forfeit his or her next turn, or would lose 
points from his or her score. This program uses some complex statements, 
so be sure you read all the remark statements and decide beforehand what 
you want to do before making any changes. 


Blackout 


There are a number of changes you might consider for this program. You 
can change W$ and B$ to two other colors by altering lines 300 and 310. Be 
sure to change the string contents at lines 1210 and 1230 as well. If you 
decide to change these colors, do only that. That is, if you change 
W$=“WHITE” to W$=“RED”, alter only the contents of that string. Leave 
the string letters just as they are (B$, W$ and C$) or you will end up changing 
half of the program. 

If you do not want the answers printed, try this; 


Change line 470 to read: 
470 PRINT e A(D—3,CHR$(143); 


This modification will print ‘blocks’ instead of the answers to the right of the 
rows. The user will know which problem they are on when the ‘block’ is 
blanked out. This change will make the user have to think harder than ever. 
To change the key closure, simply change the arguments at lines 495 
and 505, where “Q$=CHR$(32)” means that the space bar must be pressed. 


To the Dogs 


This program can be modified in several ways also. If you don't think 
$50,000.00 is a large enough prize, this figure can be changed at line 400, 
where D=5E+04 or 50000. The items you can buy are found in the data list in 
lines 1200 through 1490. The price of each item is located between lines 
1510 and 1590. If you change the data elements for the trips, be sure to 
change the statement, in which the appropriate strings are concatenated 
(placed together). These statements are found in lines 600 through 640. Also 
change the subroutine in lines 1180 through 1195. The subroutines in lines 
1140 through 1150, and 1160 through 1170 are for the concatenation of 
appliances and furnishings. 


Challenge Your Computer 


For variety, you could change the characters to whatever you desire 
(within the limits of the computer, of course). Experiment with lines 35 and 
40. For example, leave line 35 as it 1s, and change line 40 to 


40 IF P<=129 THEN 35 
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Or try this: change line 35 to: 
35 P=RND(150) 


And leave line 40 as written as above. You could also go all the way and try 
this change: 

35 P=RND(129) 

40 IF P<=33 THEN 35 


This last example will give you alphanumeric characters in sets of five each 
(of the same character). They will range from 34 to 129 so various symbols 
including the up, down, left, and right arrows will also be used. 


Keep Out of the Gutter 


You could modify this program by increasing the number of points 
awarded for each match. Change line 1140 to alter the number of points 
awarded to the computer. Change line 1210 to do the same for the human. 

The total number of rounds played can increase or decrease. Just change 
the argument at line 670, variable DD. 

The end of game messages in lines 840 through 870 can be quickly 
changed. Just be sure to refer to the right winner (you or computer) in the 
right lines. Lines 850 and 855 are for a tie game. Lines 865 and 870 are used 
when the human wins. Lines 840 and 850 are for a computer win. 

Finally, if you find it is difficult to gain many points, read and study all of 
the remark statements between lines 400 and 495. These will explain a few 
things. If you still can’t match the computer...try another game!!! 


(Motion) Sense of Direction 


If you have been frustrated by getting lost in a particular town, why not 
modify this program by entering the real street names just for practice. You 
can change the street names (data elements) in lines 5000 through 5050. If 
you enter more than 17 street names, be sure to change the DIM statements 
(line 360) and the READ DATA statements (line 380 and 390) to match the 
higher number. 

Instead of using a randomly selected highway number, you can set the 
variable H for a particular number at line 550. 

The remark statements in lines 4060 and 4070 were primarily intended 
for when all 17 street names were used. Using that many streets was not 
found to be feasible because using only six or seven names proved to be 
plenty, even for those with a half-way decent memory. 

The scene of the route can be altered by changing the following print 
Statements: 


620 through 640 * 
660 through 680 
700 through 710 * 
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730 through 750 
800 through 820 
840 through 850 * 
870 through 880 
1060 through 1070 * 
1090 through 1120 


Be sure to add a semicolon at the end of each print statement that you 
see marked by an asterisk. The semicolon will cause the street name to be 
printed on the same line as the statement. 

Lines 4010 through 4050 select a random street name and then delete it 
from the list. If you want to use the same street name(s) more than once, 
delete lines 4030 and 4050. 

Line 4160 is the random selection used to determine whether or not the 
car will not run out of gas. If you want to complicate matters and have the 
vehicle run out of gas during nearly every run, change the line to read: 


4160 D=RND(7) 
To have it run out during every run, change it to: 
4160 GOTO 4180 


Cube 


There is a way to arrange the letters in their proper places in the cube in 
only a few moves, but that solution will not be discussed here.... 

You might consider changing the letters that are within the cube. To 
make these changes, go to lines 280 and 290 where U=65, which equals the 
character A. Be sure to keep nine letters or part of the cube will be 
destroyed. Also change the contents of H$ in line 240 to match your new 
letters. 

If you want to use a point system along with or instead of counting the 
number of attempts, you can put extra lines between lines 940 and 960. The 
print statements in lines 1040 through 1170 can easily be changed. To change 
the lines that branch to these messages, alter lines 1010 through 1030, 
where variable AT is the final number of attempts. 


Horseshoes 


You can quickly change the distance the horseshoe is thrown by chang- 
ing the variable F in lines 810 through 820. Note that the line that is used 
depends on the type of throw, soft, medium, or hard, that was chosen. You 
can modify lines 840 through 850 which determine a number that is added to 
each throw. If this random number is deleted, it would become far easier to 
‘ring’ a horseshoe. 

Lines 880 through 950 reset and set all parts of the horseshoe. If you 
decide to change the shape of the horseshoe, be sure to alter all the lines that 
pertain to the shape. 
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Lines 1240 through 1290 move the horseshoe at an up or down angle 
(providing no points are gained). The user(s) and the computer each receive 
one point for each correct horseshoe thrown. The number of points can be 
increased at lines 1500 and 1505 for user 1, user 2 or the computer. The 
variables to change are, Q1 and Q2. Line 675 terminates the game at 10 
points. Change the arguments at line 675 for shorter or longer play. 

Finally, you can change the closing messages as you choose, by follow- 
ing all the print statements beginning at line 1790 and ending with line 1870. 


Bloks 


This game should be left just as it is. You could however change the final 
messages at lines 2360, 2380, and 2420. Lines 2500 through 2590 are the 
messages which are displayed when one player forfeits the game. 


Mission Improbable 


There are several changes you may want to make to this program. The 
amount of oxygen can be changed if you like. See variable XN at line 90, 
where XN=10000 units of oxygen. The alarm rating 1s governed by the 
variable AR in line 260. The value of AR is increased only if the value of DF is 
equal to one. This restriction assures us that the player has left the cubicle 
and made a full circle before the alarm rating 1s increased. You can increase 
or decrease the change in the alarm rating by changing the number in the 
statement AR=AR+.2. Also change the same number in line 1570. The 
distance is keyed to correct movement and return back to the cubicle, so you 
should not alter it. 

The game is over only when each player has completed 5 runs through 
the capsule. You can alter this number by changing the variables R1 and R2 in 
lines 2440 and 2480. If you alter these, you must also change the instructions 
and the print statement at line 2915. 

Finally, all messages can be very easily modified. There are a lot of 
them, so follow the program listing carefully. 


Driver 


One modification you could make to this game would be to adda section 
that would pick out the top winner after a number of races. Use a subscripted 
variable to do this. Also use a counter that increases after each race is 
finished. At the end of a predetermined number of drags, send control of the 
program to lines which will take the statistics from each race and determine 
the top winner. 

You may also wish to change the speed of the cars. When you examine 
lines 1200 througr 1395, you will note that the speed of the cars is preset 
using a random function. Note lines 1270 and 1290 where P1=192 and 
P2=192. Also note lines 1260 and 1280 where P1 and P2 both equal 128. Add 
64 to 128 and you'll get 192. Hence, you can see that this program is designed 
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so that the top speed will be no more than 192 and no less than 128 (step 64). 
If you decide to increase the top speed of the cars, use steps of 64. You will 
also have to redetermine the values of the variables KX and KK (lines 1260 
through 1290). These variables insure that an FC error (frequency call error) 
pertaining to the print @ statements will not occur at the finish of the race. 
The top speed of 192 for variables P1 and P2 were selected because a higher 
speed would almost render the cars invisible. 

If the staging speed (1-7) is too fast or slow for you, you can quickly 
change this speed at line 1160, the for-next loop. To increase the speed of the 
staging, just replace the 100 with a lower number. Likewise to decrease it, 
just replace the 100 with a higher numeral. 

The two dragsters are made up of CHR$(162) + CHR$(170) + 
CHR$(162). See X$ in line 490. If you want to modify the looks of the 
dragsters or make the appearance of one differ from that of the other, 
experiment with line 490. If you decide to make one different from the other, 
be sure you put it within a different string and change the appropriate lines 
throughout the entire program. Check lines 570 and 580 which print each of 
the dragsters. Change only the line that prints the ‘different’ dragster. 


Control the Robot 


Because of the complexity of the statements involved, you should leave 
this program as it stands. If you are brave enough to make changes, follow all 
remark statements carefully and to the letter! 


Random War with your Computer 


If you don't care for the square block used within this program, it can be 
modified at line 410, where X$=ST RING$(4,143). 143 is the code for one 
small block. The 4 causes four of the small blocks to be printed. 

In lines 1650 through 1740, you will find the final messages. You can 
change these to fit your needs. Try to keep the number of characters and 
spaces per line less than or equal to about 30, because the screen converts to 
the CHR$(23) format at the end. 

You have probably noted that the speed of the block increased near the 
end of the game. You can alter this at line 50 where variable TX=70. After 
each play (the setting of one of your four blocks) the computer decreases this 
variable by 10 at line 605. When TX reaches zero it will stay there. If you 
want the block to move at full speed throughout the game, change line 50 to 
read: 


50 TX=0 

And delete TX—TX—10 from line 605. 

If you prefer to slow the block down, try changing line 50 to: 
50 TX=175 

You can also decrease the number subtracted from TX 605. 
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Under Attack 


The design of the computer craft is controlled by poke graphics. If you 
are not that familiar with poke procedures, leave the craft the way it is. The 
poke graphics are located in lines 420 through 450. The computer craft is 
moved by the variable J at line 550. The firing of computer’s laser gun is 
controlled by the argument contained within line 595. You can experiment 
with different settings for this argument or add more arguments here for 
different firing effects. 

The amount of laser power remaining for both your cannon and the 
computer’s is controlled by the subtraction of an amount. You can modify the 
amount of laser power you and the computer start with by changing the value 
of Al (your power) and A2 (the computer’s power) in line 30. 

You can move your cannon (pylon) left or right and fire it with keys other 
than the ones currently used by experimenting with lines 1120 through 1140. 

If there are any other changes you want to make, follow all remark 
statements carefully, because most changes will involve poke statements. 
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Appendix C 
Program Memory 
Requirements 


This appendix contains the memory requirements for each of the 25 game 
programs contained in this book. All programs are listed in the order they 
appear in the book. 

If you want to use a particular program but you don’t have the amount of 
memory required, don’t think that all is lost! Follow the program listing 
carefully, then delete all remark statements and print statements/messages 
that you feel are not essential to the program. You could even leave out the 
instructions. If you then decide to save the program on tape, you could refer 
to the book for instructions when you wish to use the program. 

The chapter number, the title of each program, and the amount of 
memory that is required for that program are listed on the following pages. 


Title: Memory Required: 
Chapter 1 

Reverse Order of Operation .............. eese 4K 
COLO ИАС и рн sedente Suh атардан о АЛЕМ 4К 
Salt ard Pepper sis асырамын i ad анаарыы 4K 
Patteriisa: ее а ЛО A a ata 4K 
Chapter II 

Words TOBelliGE oes rie Y a рім а ы ox pete ена о 8K 
AIL About NUmbDeEs оона оа at bba Ы UO Ee EP UP URN 4K 
All About: Numbers II uere bejta ааа ec a ызы ie 16K 
Wordsof Importance sil o ae uite bn о ġa eaae d sab 8K 


Putting Names Together оа E Ee Eo ERE la ар Ы baee 4K 


Finish hè Cet ers о он ыры тысты ан ЕГО ОС ТГ 8K 
Calendar iii ir a tad ақан ылы Ы tana sees: 4K 
Chapter III 

Фе «ЧИККЕ 8K 
BOA COURS баны сытқы ОГЛ о БА 8K 
TONE DO Sa алаи 8K 
Challenge your Computer «reip v аена а Ма ына ЫШ» 8K 
Keep Out of the СиНег.................................................... 1... а. ад. 4K 
(Motion) Sense of Direction ..........................2.2..2.....а........... AK 
Chapter IV 

UDC a a i edo teu etai Metu ut PER 8K 
Horseshoes ox ы ta a M E ILE: 8K 
Тоо] СЕНЕР ЕТА A A M M LC a 16K 
Mission: Improbable eoo е аталы ħin 16K 
МЛН КККК О КО ОЛЛО ЛОГ ОКГ ТУЛУ О С Т 8K 
Chapter V 

Control the КОБО iii e tau a a ЕБ a ЛЕ ae 16K 
Random War with your Сотршетг..................................2.2.2........4 8K 
Vider ANa аламы а ħi е фе Ода аат 8K 
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Appendix D 
Short Programs 


This appendix is devoted to showing you just what short programs can 
accomplish. After you enter and try each one, you can experiment with them 
to see what can be added or deleted. There will be an explanation of what 
each program does, followed by a listing of the program. Because of the 
brevity of each program, no sample run is required. 


Calculator 


You can enter your problems and receive an instant answer with the help of 
this short program. You can add, subtract, multiply, and divide. (Sorry, no 
chain problems.) To exit, press the break key. This program is compatible 
with all systems. 


10 CLS 

20 PRINT:PRINT“ADD, SUBTRACT, MULTIPLY OR DIVIDE” 
30 INPUT“1, 2, 3 OR 4';X 

40 IF Х<-0 OR X>=5 THEN 20 

50 PRINT“YOUR PROBLEM"; 

60 INPUT A,AA | 

70 ON X GOTO 80,90,100,110 

80 PRINT A+AA:GOTO 20 

90 PRINT A— AA:GOTO 20 
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100 PRINT Ax AA:GOTO 20 
110 PRINT A/AA:GOTO 20 


Alphabetized Letter/Word List 


This program will let vou input up to 10 letters or words in anv order. 
The computer will then displav the list in alphabetical order. The program is 
compatible with all svstems. 


10 CLS:CLEAR 500 

20 I=1:DIM A(11) 

30 INPUT'LETTER/WORD';AS() 
40 IF І<-9 THEN I=I+1:GOTO 30 
50 l-I:X-0 

60 IF A$()<=A$(I+1) THEN 100 
70 Y$=A$();A$(D =A$(I+1) 

80 А$(1+1) =Ү$ 

90 X=1 

100 IF І<-9 THEN 1=1+1:60ТО 60 
110 IF X=1 THEN 50 

120 FOR I-1TO11:PRINT A$ (D;“ ';:NEXT 
130 END 


To INPUT more than 10 letters/words change the DIM statement in 
line 20 appropriately, and then change the arguments at 40 and 100 to match 
your higher number (where I<=N). Also change the FOR-NEXT loop at line 
120 appropriately. 


Low/High Numbers 


This program will let you enter up to 10 numbers in any order. The 
computer will then display the list in numerical order from low to high. This 
program is compatible with other systems. 


10 CLS 

20 I=1:DIM A(11) 

30 INPUT“THE NUMBER’ ;A() 

40 IF І<-9 THEN I=I+1:GOTO 30 
50 l-I:X-0 

60 IF A()<=A(U+1) THEN 90 

70 Ү-А(1--1):А(1І--1)-А(1):А()-Ү 
80 X-1 

90 IF I<=9 THEN I=I+1:GOTO 60 
100 IF X-1 THEN 50 
110 FOR I-2TO11:PRINT A(D;:NEXT 
120 END 
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To INPUT more than 10 numerals, follow the instructions at the end of the 
previous program. 


Bulletin Board 


This program will let you input any message. Then the computer will 
clear the video, wait the length of time you have selected, and print your 
message using CHR$(23) (large print). Press the break key after the mes- 
Sage 1S printed to exit. You can use this program on other systems by 
deleting the CHR$(23) function in line 60. 


10 CLS 

20 CLEAR 1000 

30 INPUT(YOUR MESSAGE”; A$ 

40 PRINT“DELAY OF (WHERE 500 EQUALS ONE SECOND)”; 
50 INPUT D 

60 CLS:PRINT CHR$(23) 

70 FOR I=1TOD:NEXT:A=0 

80 FOR I-1TO LEN(A$):PRINT MID$(A$,I,1); 

90 A=A+1:IF A>=27 AND МІр$(А$ 1,1 =“ "THEN PRINT:A=0 
100 NEXT 

110 END 


Print e Locations 


Memorize your PRINT @ locations with the help of a game. The com- 
puter will randomly select a PRINT @ location (between 0 and 895) and set a 
block there. You must input the number of that location. This program 
recycles and is not suitable for all systems. 


10 CLS 

20 RANDOM 

30 X=RND(895) 

40 PRINT@ X,CHR$(143) 

50 PRINT@ 896,"LOCATION"; 

60 INPUT Y 

70 IF Y<>X THEN PRINT"SORRY,IT's ';X;GOTO 90 
80 PRINT“CORRECT, IT IS ';X 

90 FOR IZ1TO1000:NEXT 

100 CLS:GOTO 30 


ASCII of Letters/Words 


This program will let vou input anv letter or word. It will then displav 
letter or word in ASCII, I.E., A=65. This program is suitable for all 
svstems. 
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10 CLS:CLEAR 500 

20 INPUT“THE LETTER OR WORD”; A$ 
30 l-1 

40 PRINT ASC(MIDS$(AS,I,1));" 7; 

50 IF I<>LEN (A$) THEN I=I+1:GOTO 40 
60 PRINT 

70 PRINT“FINISHED” 

80 END 


Firing Order 


This program depicts an eight cyclinder car engine with a faulty firing 
order. To start the engine you must input the correct firing order (1-8). The 
program is compatible with other systems. 


10 CLS:I=1 

20 INPUT"THE FIRING ORDER';X(D:IF I<=7 THEN I=I+1:GOTO 
20 

30 FOR IZITO8:F(D ZENEXT:I-1 

40 A=RND(8):IF A=0 THEN 40 

50 IF I5 —9 THEN 100 

60 IF F(A)=0 THEN 40 

70 JD=A 

80 F(A)=0 

90 I=I+1:GOTO 40 

100 FOR IZ1TO8:IF X(D«»J() THEN P=1:NEXT ELSE NEXT 
110 IF P=1 THEN PRINT“ENGINE IS NOT RUNNING !!”:GOTO 130 
120 PRINT"THE ENGINE IS RUNNING !!!” 

130 END 


Next in Line 


This program will display a list of five numbers that will range from 0 to 
9. The computer will display these five randomly selected numbers for about 
one second and then clear the screen. You must input a number that is one 
higher than the numeral you saw for each of the five numbers, I.E., if168 72 
are printed, you must input 2 7 9 8 3. 


10 CLS:RANDOM 

20 FOR [=0TO9:N(1)=I:NEXT:I=0 
30 N-RND(9) 

40 IF I>=5 THEN 80 

50 IF N(N)=0 THEN 30 

60 A(D-N4I:PRINT A(D— 1:N(N)—-0 
70 I=I+1:GOTO 30 

80 FOR Т-1Т01000:МЕХТ:СІ,5 
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90 PRINT“INPUT FIVE NUMBERS EACH MUST BE”. 
100 PRINT “ONE HIGHER THAN THE NUMERAL YOU SAW.” 
110 I=0 
120 INPUT X 
130 IF Х<>А() THEN P=P+1 
140 IF 1<=4 THEN I=I+:GOTO 120 
150 IF P=0 THEN 170 
160 PRINT“YOU HAVE MISSED";P;"NUMBERS.....":GOTO 180 
170 PRINT'CONGRATULATIONS, ALL CORRECT !!!” 
180 END 


Printer Signs 


Using anv combination of kevs on vour kevboard, vou can create a sign 
for your printer to print. To make blank spaces, press the space bar; the 
cursor will move one position to the right. (This cursor will not be printed on 
the hard copy.) You cannot backspace with this program. 

Whatever you create on your video will be printed on paper with the 
help of a line printer (up to 900 characters). Anytime you are ready to stop 
designing, press the up arrow key. The computer will then state “ENTER A 
Y’ FOR PRINTER—‘N’ TO RUN AGAIN?” When the display is printed on 
paper, it will be the same width as it is on your screen, 64 characters wide. 
The program 1s not suitable for all computer systems. 


10 CLS 

20 CLEAR 1200:X=0:DIM L$(900) 

30 A$=INKEY$:PRINT@ X,CHR$(95);:IF A$= THEN 30 
40 IF A$=CHR$(91) THEN 90 

50 IF X>=900 THEN 90 

60 IF A$=“” THEN 80 

70 PRINT@ X,A$; 

80 L$(X)=L$(X)+A$:X=X+1:GOTO 30 

90 INPUT“ENTER A 'Y' FOR PRINTER—'N' TO RUN AGAIN” ;Q$ 
100 IF Q$=“N” THEN CLS:RUN 
110 INPUT“READY LINE PRINTER— PRESS ЕМТЕК”;0% 
120 J=0:H=0 
130 LPRINT L$(H);:J=J+1 

140 IF J>=64 J=0:LPRINT 

150 IF H<=X THEN H=H+1:GOTO 130 

160 END 
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Appendix E 
The ASCII Character Codes 


The ASCII character codes are universal, the same for all computer systems. 
When you run the program below, the code will be displayed on the left. To 
the right of the code is the character it represents. If your particular system 
is not equipped to output the lower case letters, having your computer 
display the characters for the code addresses 97-127 will result in a display of 
only upper case letters or blank spaces. 


10 REM CLEAR THE VIDEO SCREEN 

20 CLS 

30 REM OUTPUT CHARACTER CODES 32 THROUGH 127 
40 FOR 1=32 TO 127 

50 PRINT 1;' "CHR$(D 

60 NEXT 

70 END 


ASCII Character Codes 32-127 


32 space 57 9 82 R 107 k 


33 ! 98 : 835 1081 
34 “ 99 ; 84 T 109 m 
35 ff 60 < 850 110 n 
36 $ 61 = 86V lllo 
37 % 62 > 87W 112p 
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38 & 63? 88 X 113 q 
39 ' 64@ _ 89Ү 141 
40 ( 6 А 907 115s 
41 ) 66B 91[ 116¢t 
42 * 67 C 92% 17и 
43+ 68D 93] 118 v 
44 , 69 E 994^ 119 w 
45 — 7 F 95— 120 x 
46 . 716 96,  121y 
47/ 72H 97a 1222 
480 731 98b 123 | 
491 74] 99 с 124 | 
502 75K 1004 125) 
553 761, 101е 126 ~ 
524 77M 102Ғ 1275 
535 78N 103g 7 
546 790 104h 

557 80Р 1051 

568 810  106j 


You will note that there are five characters you might not have seen 
printed on your video. These are characters 123-127. If your system is 
equipped with a lower case kit, these five characters can only be POKEd to 
your video using video POKE memory addresses. (They can also be printed - 
on paper with an attached line printer.) If your system IS equipped with the 
lower case kit, load it; then enter and run the following short program. 


10 CLS 

20 FOR 1=123 TO 127 
30 PRINT L;" ';CHRS(I) 
40 NEXT 


Blank spaces or carriage returns were printed on your video. 
Now insert or change the following lines; then run the program again. 


15 X=15425 

35 X=X+5 

And change line 30 to: 

30 POKE X,I 
What you have now are some 'new' characters to play around with. But 
remember, to use them, you must have a lower case kit. These special 
characters can only be POKEd into the video display memory, locations 
15360 to 16383. DO NOT POKE BELOW OR ABOVE THESE AD- 
DRESSES.....ANYWHERE IN BETWEEN IS FINE ..... 
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Appendix F 
Basic Commands 


Within this appendix you will find a general list of BASIC statements, 
including examples for each. You might not recognize some of the state- 
ments or examples, depending on the kind of computer system you own, but 
every effort was made to include some statements from each of a number of 
different brands. 


Input/Output Commands 


The following statements control the entering, retrieving, and output- 
ting of data. 


INPUT 


When an input statement is encountered the computer will stop execu- 
tion of a program until you enter the specified values. The response to an 
input statement might be a numeric variable or a string or both. Example: 


10 INPUT“YOUR NAME”; A$ 
20 INPUT“PLAYERS’ NAMES” ;A$,B$ 
30 INPUT"NUMBER LIST';A,B,C 


Each input statement must include a semicolon between the print 
statement and the variable or string that is to be entered. Each string or 
variable must be separated by commas as shown in lines 20 and 30 above. In 
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these two lines the computer will wait for more data to be entered from the 
keyboard. 


INKEY$ 


When an inkey$ statement is encountered, the computer will wait for a 
specific key to be pressed. If a null is specified the program will not branch to 
other lines until the space bar is pressed. Examples: 

10 A$=INKEY$ 

20 IF A$=“ “THEN 1000 

30 GOTO 10 
The program will remain at line 10 (null string) until the condition is met at 
line 20 (space bar); then the program will branch to line 1000. 


GET 


The get statement is much the same as the inkey$ statement. Line 10 in 
the example above would be changed to GET A$. Both inkey$ and get 
statements can be used for alphanumeric specifications. 


DATA 


The data statement will let you store a data list within your program. 

The list can be accessed by read statements. Each data element must be 
separated by commas, and value in the read statement must not exceed the 
number of data items in a list. (See READ below.) Examples: 

100 DATA 1,2,5,.99,1.22 

200 DATA WANT,WILL,GONE,CARRY ON 
Line 100 above must be read by a numeric expression. For line 200, the read 
statement must be a string expression. 


READ 


The read statement instructs the computer to read a specified data list. 
All data items within a list are READ from first to last. The example below 
will read the two data lines above (lines 100 and 200). 
20 FOR IZ1TO5:READ N(D:NEXT 
30 FOR IZITO4:READ W$(D:NEXT 


RESTORE 


This statement will let you reuse a data list already read by the 
computer. The next read statement will begin with the first item within the 
data list. Example: 

100 READ A 

110 RESTORE 
120 READ B 

130 PRINT A,B 
140 DATA 100,200 
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RUN 

100 100 
In the example above, the RESTORE at line 110 caused the computer to 
start over again with the first item in the data list. Thus the “100” was read 
twice. 


PRINT 


The print statement will display a single item or a list of items on the 
video screen. These items can include numeric constants, string constants 
or a combination of both. The PRINT items may be separated by commas or 
semicolons. If commas are used the computer will print each successive item 
at the next print zone. If semicolons are used there will be no space between 
successive items. Examples: 


1000 PRINT“THIS IS THE WORD” 
1010 PRINT A$ 
1020 PRINT“THIS IS NOT CORRECT”; 
1030 PRINT X$ 
1040 PRINT“THE FOLLOWING WORD”;W$;“USED” 
1050 PRINT“THE NUMERAL AMOUNT IS';A 
1060 PRINT“THE ONES CHOSEN ARE”;B,C 
No blanks are inserted when you use strings. Blanks can be inserted 
within quotes as in lines 1020 and 1040 above. Blanks are automatically 
inserted before positive numbers, and all numbers are printed with trailing 
blanks. 


PRINT @ 


The print @ statement instructs the computer to print a message, 
numeric constant, or string constant at a specified location on the video 
screen. Example: 

100 PRINT.@100,“CONTROL=”;C 
would print the word CONTROL at location 100 on the video. The value of 
CONTROL would be located at location 110 (10 spaces from the C in 
control). 


PRINT TAB 


The print tab statement instructs the computer to print at a specified tab 
location, usually between 0 and 63. If the number is greater than 63, the 
item(s) will be printed on the succeeding line. TAB may be used many times 
in a print list. Example: 

10 PRINT TAB(10)“CALLING” TAB(40)“OUT” TAB(50)“TABS” 
Some systems require that semicolons be placed after the tab location, I.E., 
PRINT TAB(10); “CALLING” 

Numerical expressions can also be used for tab locations. This makes TAB 
very useful for graphs. Example: 


266 


100 T=15 
110 PRINT TAB(T);“IS THE CORRECT TAB.” 
120 PRINT TAB(T+25)"IS VALID ALSO." 


PRINT USING 


This statement allows you to specify a format for printing numeric or 

string values. Example: 

10 D$="“SS###F#. FF” 

20 T=1000 

30 PRINT USING D$;T 
RUN 
$1000.00 
The # sign (line 10, D$) specifies the position of each digit in the numeric 
value. The two dollar signs act as floating dollar signs. One dollar sign will 
occupy the space right before the amount. As with line 30 the string contents 
(D$) and the value of 'T' MUST be separated by a semicolon. 


PRINT #-1 


This print statement sends any given values to cassette tape. The 
player must be in the proper record position before these items will be 
transferred. Example: 

100 FOR I-1TOS:PRINTĦ— 1,A(D:NEXT:AS-'FINISHED' 

110 PRINTĦ—1,A$ 
Line 100 will store the values of the variables (subscript), А(), onto cassette 
tape. Line 110 stores the contents of A$, FINISHED. The # (pound sign) 
specifies that the following value indicates an output device (in this case 
cassette player—either number one or number two). With some systems the 
data can be sent to more than one cassette player at a time. 


INPUT #—1 


This statement inputs the specified number of values from the cassette 

and assigns them to specific variables. Example: 

200 FOR I=1TO5:INPUT#—1,Ad):NEXT 

210 INPUT#—1,A$ 
The input list must match the print list that was created earlier when the 
values were put on tape. I.E., whatever you print to a cassette tape must be 
matched exactly by the input statement that is going to use the data or an 
OUT OF DATA error will occur. 


Flow of Control Commands 


The following commands direct the execution of the program. 


GOTO 


The goto statement instructs the computer to branch to a specified line 
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number. If there is no such line the computer will stop and display an error 
message. 


IF...THEN..., IF...GOTO..., IF...THEN...ELSE...GOTO 


When the computer encounters any of these statements, it will test the 
following expression. If the condition is met, control will branch to the line 
specified after the "THEN" or the “СОТО”. If the condition is not met, the 
“ELSE” in the third statement specifies an alternative action. When there is 
no “ELSE,” the program will continue with the next line in the program. If 
there are no other lines an error will occur. 


FOR...TO...(STEP)...NEXT 


This statement opens a repetitive loop so that a sequence of program 
statements mav be executed over and over. After each time through the 
loop, the counter is compared to the final value within the FOR statement. If 
the counter is greater than the final value, the program will not repeat the 
loop again. The STEP is optional. If no STEP is specified a STEP 1 will be 
assumed (that is, the value will be increased by one each time the program 
goes through the loop). 


GOSUB 


The GOSUB statement will cause the computer to branch to the 
specified line. This line should be the first line in a subroutine. When a 
RETURN is encountered, the program will branch back to the line im- 
mediately following the most recently used GOSUB. 


RETURN 


There are no parameters or options in this statement. It causes a branch 
to the statement that immediately follows the most recently used GOSUB. If 
a program encounters more RETURNs than GOSUBs, a RETURN WITH- 
OUT GOSUB error will occur. 


ON...GOTO, ON...GOSUB 


Both of these statements work in much the same way as GOTO and 
GOSUB do except that more than one line number can be specified at a given 
time. The line that is used depends on the current value of the variable. 
Examples: 

200 ON X GOTO 300,310,320 
400 ON J GOSUB 1000,1010,1020 
Each GOSUB must be met with an appropriate RETURN. 


ON ERROR GOTO 


This statement will send control to a specified line in case an error 
occurs. The ON ERROR GOTO staternent must be encountered before the 
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error occurs or it will have no effect. This error trapping mode must be 
terminated by a RESUME statement. 


RESUME 


This statement terminates an error handling routine by specifying 
where the program is to branch to resume. RESUME 0 will cause the 
computer to branch to the line in which the error occurred. RESUME 
followed by a line number will cause the program to branch to that specified 
line. RESUME NEXT causes the computer to branch to the line following 
the line in which the ERROR occurred. 


This statement instructs the computer to ignore the contents of the rest 
of the line. REMark statements can be placed anywhere within a program. 
These REM statements make a long program much easier to figure out. Ifa 
line contains multiple statements, the REM statement must be last. 


Arrays and Strings 


The following commands enable you to work with strings and arrays. 


When a DIMension statement is executed, it sets aside space for the 

variable specified. Examples: 

10 DIM A(10) 

20 DIM A$(20) 

30 DIM W(5,5) 
If the program tries to execute the same DIM statement more than once, an 
error will occur. Line 10 above sets aside 11 (0-10) elements for variable A, 
while line 20 sets aside 21 elements for A$. Line 30 sets aside 5*5 (25 
elements) for variable W. 


LEN 


This function returns the number of characters in a given string. Exam- 
ple: 
10 A$=“STRINGS” 
20 PRINT LEN(A$) 
RUN 
7 


LEFT$ 


This function returns the first n characters of a string. Example: 
30 PRINT LEFTS(A$,2) 
Using the example above, 'STRINGS,' this statement would return ST. 
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RIGHTS 
This function returns the last n characters of a string. Example: 
30 PRINT RIGHT$(A$,1) 
Using 'STRINGS' again, this statement would return S. 


MID$ 


This function returns a substring of the string with a length of n and the 
starting position J. Example: 
30 J=2 
40 PRINT MIDS(A$ J,3) 
Using “STRINGS” again, this statement would return TRI. 


SUBSTRING$ 


This function works the same as MID$ does. 


STR$ 
This function converts a numeric expression or constant into a string. 

The numeric expression or constant must be enclosed in parentheses. 
Example: 

10 A=100.50 

20 PRINT STRS(A) 
RUN 
100.50 


STRING$ 


This function returns a string composed of n of the specified character 
svmbols. Example: 


STRING$(10,"$") returns $$$$$$$$$$ 
VAL 


This function performs the reverse of the STR$ function; it returns the 
number represented by the characters, an alphanumeric string. Example: 
10 A$=INKEY$ 
20 PRINT VAL(A$) 
30 GOTO 10 
By pressing different numbers, you would receive the VAL of A$. 


CLS 


This command clears everything off the video screen. 


HOME 


This command works the same way as CLS does. 
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CLEAR 


This command sets all variables, strings and arrays to zero and resets 
pointers and stacks. 


CLEAR n 


This command opens more memory space for string input. Most sys- 
tems automatically set aside 50 bytes for string input. With this function you 
can open as much memory space as you feel you will need. Example: 

10 CLEAR 1000 
would CLEAR 1050 bytes for string storage/input. CLEAR and CLEAR n 
are not the same. 


FRE 


This command returns the amount of memory (in bytes) available to the 
user. Using the CLEAR 1000 from above as an example: 
10 PRINT FRE(A$) 
would return 1050, providing nothing has been entered. 
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Changes to programs, Patterns, 
245 

Changes to programs, Putting 
Names Together, 247 

Changes to programs, Random War 
with your Computer, 253 

Changes to programs, Reverse 
Order, 242 


Changes to programs, Salt and 
Pepper, 244 

Changes to programs, To the Dogs, 
149 

Changes to programs, Under At- 
tack, 254 

Changes to programs, Words of Im- 
portance, 247 

Character codes, 33, 262 

CHR$ (23), 1, 259 

Clear n command, 271 

Clockwork game, 100 

CLS command, 237, 270 

Color Match game, 9 

Control the Robot game, 211, 220 

Converting programs for use on 
other systems, 237 

Counting, 43 

Cube game, 162 


D 
Data statements, 265 
Dates, 92 
Days of the Week, 92 
Digits, 54 
Dimension statement, 269 
Division, 19 
Drawing, 35 
Driver, 204 
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E 
Error handling methods, 268, 269 


F 

Finish the Letters game, 83 

Firing Order program, 260 

Flow of Control commands, 267- 
269 

For...to... (step)... next state- 
ment, 268 

FRE command, 271 


G 

Game, strategy, Bloks, 178 

Games, action, Clockwork, 100 

Games, action, Control the Robot, 
211 

Games, action, Driver, 204 

Games, action, Horseshoes, 169 

Games, action, Mission Improba- 
ble, 190 

Games, action, Under Attack, 229 

Games, code, Challenge your Com- 
puter, 133 

Games, code, Putting Names To- 
gether, 74 

Games, educational, All About 
Numbers, 43 

Games, educational, All About 
Numbers 11, 52 

Games, educational, Calendar, 92 

Games, educational, Finish the 
Letters, 83 

Games, educational, Putting 
Names Together, 74 

Games, educational, Words of Im- 
portance, 64 

Games, educational, Words To- 
gether, 33 

Games, financial, To the Dogs, 119 

Games, guessing, Challenge your 
Computer, 133 

Games, guessing, Color Match, 9 

Games, guessing, Keep Out of the 
gutter, 142 

Games, guessing, Random War 
with your Computer, 222 

Games, letter, Cube, 162 

Games, letter, Finish the Letters, 
83 

Games, letter, Putting Names To- 
gether, 7 

Games, letter, Words Together, 33 

Games, logic, Color Match, 9 

Games, logic, Cube, 162 

Games, Logical and Relaxing, 1 

Games, math, All About Numbers, 
43 

Games, math, All About Numbers 
І, 52 

Games, math, Blackout, 110 

Games, math, Calendar, 92 
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Games, math, Salt and Pepper, 19 

Games, number, Challenge your 
Computer, 133 

Games, number, Firing Order, 260 

Games, number, Keep Out of the 
Gutter, 142 

Games, number, Putting Names 
Together, 74 

Games, racing, Driver, 204 

Games, reverse-order, Reverse 
Order of Operation, 1 

Games, reverse-order, Words of 
Importance, 64 

Games, Skill and Intelligence, 162 

Games, space, Mission Improbable, 
190 

Games, space, Under Attack, 229 

Games, target, Clockwork, 100 

Games, target, Control the Robot, 
211 

Games, target, Horseshoes, 169 

Games, target, Under Attack, 229 

Games, Teaching and Learning, 33 

Games, Time- and Mind-Chal- 
lenging, 100 

Games, War and Logic, 211 

Games, word, Finish the Letters, 
83 

Games, word, Words of Impor- 
tance, 64 

Games, word, Words Together, 33 

Get command, 237, 265 

Gosub statement, 268 

Goto statement, 267 


H 
Home statement, 237, 270 
Horseshoes game, 169 


І 

Ё... goto ... statement, 268 
If . . . then... . else statement, 268 
If... then... . statement, 268 
Inkey$ function, 229, 237, 240, 

265 
Input#-1 statement, 267 
Input/output statements, 264-267 
Input statement, 264 
INT command, 238, 240, 241 


K 
Keep Out of the Gutter game, 142 


L 
Left$ command, 35, 238, 240, 269 
Length statement, 269 
Low /High Numbers program, 258 


M 
Memory requirements, 255, 256 
Memory requirements, reducing, 255 
Mid$ command, 35, 238, 240, 270 


Mission Improbable game, 190 
(Motion) Sense of Direction game, 152 
Multiplication, 19 


N 
Next in Line program, 260 
Next statement, 268 


0 
On error goto statement, 268 
Оп... gosub statement, 268 
On... goto statement, 268 


P 

Patterns program, 26, 35 

Peek command, 237, 239 

PET computer, 237, 238 

Poke command, 237, 263 

Print locations, 259 

Print statement, 238, 259, 266 

Print£-1 statement, 267 

Print statement, 266 

Print tab statement, 266 

Print using statement, 267 

Printer Signs program, 26 

Program changes to consider, 242- 
254 

Program conversion, Color Match, 
238 

Program conversion, Keep out of the 
Gutter, 240 

Program conversion, (Motion) Sense 
of Direction, 241 

Program conversion, Putting Names 
Together, 240 

Program conversion, Reverse Order 
of Operation, 238 

Program conversion, Salt and Pepper, 
238 

Program conversion, To the Dogs, 
240 

Program conversion, Words of Im- 
portance, 240 

Program conversion, Words To- 
gether, 239 

Program memory requirements, 255, 
256 

Programs, short, Alphabetized 
Letter /Word List, 258 

Programs, short, ASCII of Letters /W 
Words, 259 

Programs, short, Bulletin Board, 259 

Programs, short, Calculator, 257 

Programs, short, Firing Order, 260 

Programs, short, Low /High Number, 
258 

Programs, short, Next in Line, 260 

Programs, short, Print Locations, 
259 

Programs, short, Printer Signs, 261 

Programs that Convert to Other Sys- 
tems, 237-241 


Putting Names Together game, 74 


R 
Random War with your Computer 
game, 221, 229 
Read statement, 265 
Remark statements, 269 
Reset command, 237 
Restore statement, 265 
Resume statement, 269 
Return statement, 268 
Reverse Order of Operation game, 1 
Right$ command, 35, 238, 240, 270 


RND command, 238-241 
Robot, 220 


$ 
Salt and Pepper game, 19 
Set command, 237 
Short programs, 257 
Step statement, 268 
String$ statement, 270 
STR$ statement, 270 
Substring$ statement, 270 
Subtraction, 19, 52 


T 
To the Dogs game, 119 
TRS-80 computer, 237 


U 
Under Attack Game, 229, 237 


V 
Value statement, 270 


W 
Words of Importance game, 64 
Words Together game, 33 
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25 EXCITING COMPUTER GAMES IN BASIC 
FOR ALL AGES 


If you are intrigued with the possibilities of the programs 
included in 25 Exciting Computer Games in BASIC for All Ages 
(TAB Book No. 1427), you should definitely consider having the 
ready-to-run tape or disk containing the software applications. 
This software is guaranteed free of manufacturer's defects. (lf 
you have any problems, return the tape or disk within 30 days and 
we'll send you a new one.) Not only will you save the time and 
effort of typing the programs, the tape or disk eliminate the 
possibility of errors that can prevent the programs from func- 
tioning. Interested? 


Available on tape for the TRS-80 Models | and Ill with a minimum 
of 16K memory and on disk for the TRS-80 Models | and III with a 
minimum of 32K memory at $19.95 for eachtapeor disk plus $1.00 
each shipping and handling. 


p^ I’m interested. Send me: l 


l 
| —_____ tape for 25 Exciting Computer Games in BASIC for 4 
| А// Ages (6021) i 


disk for 25 Exciting Computer Games in BASIC for Ё 


I AII Ages (6022) 

lI — —— Check/Money Order enclosed for $ 

i VISA — — — — МаѕіегСага 

lAcct. No. — | Žž Expires 

I Name 

f Address 

lcity ———— ү - JO 
I Signature 


l Mail To: TAB Books Inc. 
P.O. Box 423 
i Wavnesboro, PA 17268 


fu (Pa. add 6% sales tax. Orders outside U.S. must be prepaid with international money orders in 
| U.S. dollars.) 


ISBN 0-830b-0u2?-8 


> 521.45 


(continued from front Нар) 


getting the right answers to color and 
pattern matching, spelling, and number 
problems . . . and there are games that 
provide learning challenges for adults 
as well as children. There are logic 
games that pit you against a computer 
opponent that has the “perfect” 
strategy, skill and action games like 
Mission Improbable, and war games 
like Under Attack, even a game that lets 
you command your own on-screen 
robot. 

Whether you want to teach your 
children to read a calendar, improve 
your own computer skills, or simply 
have fun zapping aliens on your micro 
screen, you'll find the programs here in 
this exciting new volume! 

David W. Chance is a computer 
programmer and micro hobbyist whose 
previous books for TAB include 33 
Challenging Computer Games for TRS- 
80 "/Apple ™/PET® and 30 Computer 
Programs forthe Homeowner, in BASIC. 


Cover illustration by Al Cozzi. 
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